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IDENTIFICATION 


PRODUCT CODE: AC-F633A-MC 

PRODUCT NAME:  CKFPBAO FP11F FLTG PNT PRT B 
DATE CREATED: OCTOBER, 1979 

MAINTAINER: DIAGNOSTIC ENGINEERING 

AUTHOR : ANTHONY VEZZA, DAN MILLEVILLE 
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THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO _ CHANGE 
AND SHOULD NOT BE CONSTUED AS A COMMITMENT BY 
CORPORAT.ION. DIGITAL EQUIPMENT 
S$ NO RESPONSIBILITY FOR ANY ERRORS THAT 
MAY OCCUR oN THIS MANUAL. 


THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED TO THE 
PURCHASER UNDER OR USE ON A SINGLE COMPUTER 
SYSTEM AND CAN BE C INCLUSION OF DIGITAL'S 
COPYRIGHT NOTICE) ONLY FOR USE IN SUCH SYSTEM, EXCEPT AS MAY 
OTHERWISE BE PROVIDED IN WRITING BY DIGITAL. 


DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR 
THE USE OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS 
NOT SUPPLIED BY DIGITAL. 


COPYRIGHT (C) 1979 BY DIGITAL EQUIPMENT CORPORATION 
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HISTORY 


NO CHANGES TO THE 11/34 FLOATING POINT = he Tail. PART ‘A* WERE 
FOUND TO BE NEEDE TO ADAPT IT FOR USE ON THE 11/ 


THE FOLLOWING WAS ADDED TO THE 11/34 FLOATING POINT DIAGNOSTIC 
TO MAKE THE ‘B" VERSION COVER THE 11/44: 


1. TEST 22 = PROCESSOR LOOKS TO SEE IF APT IS CON- 
TROLLING THE TEST, AND IF IT JIS, CHECKS TO SEE 
IF THE USER HAS SELECTED THIS TEST BY CHECKING 
BIT 7 IN THE SWITCH REGISTER. IT HAS ALSO BEEN 
CHANGED SO THAT IF BIT 7 IS *ONE*, THE CODE WILL 
SELECT THE TEST. 


THE FOLLOWING WAS ADDED TO THE 11/34 FLOATING POINT DIAGNOSTIC 
TO MAKE THE ‘*C* VERSION COVER THE 11/44: 


1. TEST 76 -°CHECKS THAT FP aad DOESN'T ACCESS 
D-SPACE UNTIL CONDITIONS WARRAN 


. TEST 77 = CHECKS THAT  SR1 MATCHES WHAT ACTUALLY 
HAPPENED TO THE REGISTER OF THE INSTRUCTION, AND 
al VALUE OF AUTO INCREMENT/DECREMENT WAS 
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ABSTRACT 


THE THREE PROGRAMS: 
CKFPAAO CKFPBAOQ CKFPCAO 


ARE DESIGN TO DETECT AND REPORT LOGIC FAULTS IN THE 
PDP 11/44 FP11-F FLUATING POINT PROCESSOR. THE 
DESIGN IS AN ATTEMPT TO REACH ALL ROM STATES, TAKE 
ALL BRANCH MICRO TESTS (BUT'S) AND VARIFY ALL THE 
LOGIC. THEY CONSIST OF 157 (OCT) INDIVIDUAL TESTS 
SEQUENCED TO DETECT AND ATTEMPT TO IDENTIFY FAULTS 
WITH A MINIMUM HARDWARE OR SOFTWARE LEVEL. _ THE 
TESTS ARE PARTIONED INTO THREE STAND-ALONE PROGRAMS 
DESCRIBED BELOW. 


NOTE THAT ERROR REPORTS IN THESE PROGRAMS ARE BASED 
UPON THE KNOWLEDGE THAT ALL PREVIOUS TESTS HAVE BEEN 
RUN AND IN MOST CASE THAT THERE IS ONLY A_ SINGLE 
POINT FAULT IN THE FP11-F. IF THE PROGRAMS OR TESTS 
hae IN ORDER THEN ERROR MESSAGES MAY NOT BE 
A ATE. 


A. CKFPAAO 

CKFPAAO TESTS: 
LDFPS 
STFPS 


CFCC 

moe SETD, SETI AND SETL 

LDF AND LDD (ALL SOURCE MODES) 

STD (MODE 0 AND 1) 

ADDF, ADDD AND SUBD (MOST CONDITIONS) 
B. CKF PBAO 
CKFPBAO TESTS: 


ADDF, ADDD AND SUBD (ALL CONDI! IONS NOT 
TESTED IN CKFPBAO) 
CMPD AND CMPF 


DIVD AND DIVF 
MULD AND MULF 
MODD AND MODF 
« CKFPCAO 
CKFPCAO TESTS: 
STF AND STD (ALL MODES) 


STCFD AND  STCDF 
CLRD AND CLRF 


SEQ 0004 
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SEQ 0005 
188 NEGF AND NEGD 
189 ABSF AND ABSD 
190 TSTF AND TSTD 
191 NEGF, ABSF AND TSiF (ALL SOURCE MODES) 
192 NEGF, ABSF AND TSTF (ALL SOURCE MODES) 
193 LDFPS ‘ALL SOURCE MODES) 
194 LDCIF AND LDCLF 
195 LDCID AND LDCLD 
1 LDEXP 
197 STFPS (ALL DESTINATION MODES) 
198 STCFL AND STCFI 
199 STCDL AND STCDI 
200 STEXP 
201 STST 
202 
203 
204 r REQUIREMENTS 
oe pee ee SOREN 
206 
4 2.1 EQUIPMENT 
209 A PDP 11/44 (WITH OR WITHOUT CONSOLE), LA30 (OR 


210 EQUIVALENT) AND AN FP11-F FLOATING POINT PROCESSOR. 
511 NOTE THAT A SPECIAL INTERRUPTS TEST MODULE IS BEING 
$12 DESIGNED FOR USE IN THE MANUFACTURING ENVIRONMENT . 

$13 WHEN THIS DEVICE IS PRESENT THE PROGRAM CKFPBAO WILL 
S14 MAKE USE OF 17 TO TEST THE FPP INTERRUPT ON BUS 
215 REQUEST FUNCTIONS. 

17 2.2 STORAGE 

519 ALL THREE PROGRAM REQUIRE A MEMORY SYSTEM OF AT 
33 LEAST 16K TO LOAD AND RUN. 

222 2.3 PRELIMINARY PROGRAMS 

554 THESE THREE DIAGNOSTICS WILL ASSUME THAT THE PDP 
225 11/44 CENTRAL PROCESSOR IS FAULTLESS, THEREFORE WHEN 
556 IN DOUBT RUN THE PDP 11744 PROCESSOR DIAGNOSTICS 
227 BEFORE THESE FP11-F DIAGNOSTICS. 

2 

559 

230 z, LOADING PROCEDURE 

532 

233 THE PROGRAMS WILL BE SUPPLIED ON THE 11/44 
534 DIAGNOSTIC MEDIA. REFER TO THE XXDP OPERATING 
235 ) MANUAL FOR FURTHER INFORMATION. 

537 ‘ STARTING PROCEDURE 

Sie (ei ee en cad Pde oe SL = oe anennes 

539 

240 4.1 CONTROL SWITCH SETTINGS 

242 SEE SECTION 5.1 

544 4.2 PROGRAM AND OPERATOR ACTION 
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LOAD PROGRAM INTO MEMORY 
LOAD ADDRESS 200 


wn 
*e ee 


PRESS START 
ON FIRST PASS THE PROGRAM 


WILL IDENTIFY ITSELF. NOTE THAT IF THERE [IS 
NO PHYSICAL CONSOLE THE PROGRAM WILL REQUEST 
THE OPERATOR FOR INITIAL VALUE FOR THE 
SOFTWARE SWITCH REGISTER (SEE SECTION 8.5). 

IF RUNNING UNDER ACT, APT OR CHAIN THIS DOES 


NOT APPLY. 
Ds THE PROGRAM WILL LOOP AND AN END OF PASS AND 
ERROR SUMMARY WILL BE TYPED AT THE END OF 


EVERY PASS. 
OPERATING PROCEDURE 


OPERATIONAL SWITCH SETTINGS 
THE SWITCH SETTING ARE: 


SW<15>=1. 100000 HALT ON ERROR 
SW<14>=1. 40000 LOOP ON CURRENT TEST 
SW<13>=1. 20000 INHIBIT ERROR TYPE OUTS 
SW<12>=1 10090 INHIBIT T-BIT TRAPPING 
SW<11>=1. 4000 INHIBIT ITERATIONS 
SW<10>=1. 2000 RING TTY BELL ON ERROR 
SW<9>=1.... 1000 LOOP ON ERROR 
SW<B>=1 06% 400 LOOP ON TEST SPECIFIED 
THROUGH SW<0Q> 
SW<7>E1 6c 200 PRINT ERROR SUMMARY E 
SW<13>=1, THIS APPLIES 
PROGRAM CKFPAAO. 
SUC7>E1 . ec 200 SELECT CORRECT INTERRUPT 
PROGRAM CKFPBAO. IF APT IS SELECTING 
THE TEST, THE SWITCH REGISTER S 
EXAMINED TO SEE IF 
SELECTED THIS TEST BY 
Sw<7> 
ERRORS 
SUMMARIES 


IN PROGRAM CKFPAAOQ, TESTS 1_ AND 11 HAVE A SPECIAL 
ERROR SUMMARY FEATURE. THESE TWO TEST RUN MANY 
TEST PATTERNS THROUGH THE LOGIC. AFTER AN _ ERROR 
1S ENCOUNTERED, ONLY THE FIRST FIVE ERRORS ARE 
REPORTED (TYPED ON THE TTY). EVERY ERROR THOUGH 
1S_ LOGGED AND AN ERROR SUMMARY IS PRINTED WHEN 
THE TEST IS COMPLETE. NOTE THAT IF SwW<13>=1 THIS 


SET CONSOLE SWITCHES (IF CONSOLE IS PRESENT) 


THE USER HAS 


SEQ 0006 
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SUMMARY WILL NOT BE wn” th UNLESS SwW<7>=1. IN OTHER 
WORDS TO GET JUST ERROR SUMMARY FROM EITHER OF 
THESE TWO TESTS 1 AND 71 IN PROGRAM CKFPAAO BOTH 
SWITCHES 13 AND 7 MUST = 1. 


ERROR RECOVERY 


SW<15:9>=0... MOST ee. WILL CAUSE EXECUTION TO 
GO TO THE START OF THE Nex? TEST 
AFTER THE MESSAGE IS TYPED. A_ FEW 
TESTS ARE IN SECTIONS. _IN THESE 
TESTS AN ERROR WILL CAUSE EXECUTION 
TO GO TO THE NEXT SECTION AFTER THE 
MESSAGE IS TYPED. 


SW<15>=1... THE PROGRAM WILL HALT AFTER TYPING 
THE ERROR MESSAGE. PRESSING THE 
CONSOLE CONTINUE WILL CAUSE _ THE 
PROGRAM TO CONTINUE AS IF SwW<15>=0. 


RESTRICTIONS 


NONE 


EXECUTION TIMES 
LESS THAN 10 SECONDS FOR EACH PROGRAM ON ANY PASS. 
STACK POINTER 


THE STACK POINTER IS INITIALIZED TO 1100 IN EACH OF 
THE THREE PROGRAMS. 


PASS COUNT 


THE PROGRAM MAKES ONE PASS FOR EACH END OF _ PASS 
MESSAGE TYPED. THE END OF PASS MESSAGE DESCRIBES 
THE TOTAL NUMBER OF PASSES COMPLETED AND THE TOTAL 
NUMBER OF ERRORS SINCE THE LAST END OF PASS MESSAGE. 


T-BIT TRAPPING 


IF SwW<12>=0 EACH PROGRAM WILL RUN WITH TRACE TRAPS 
ON EVERY OTHER PASS. _ FIRST PASS WILL NOT ENABLE 
TRACE TRAPS. NOTE SW<12>=1 DISABLES T-BIT TRAPS. 


SOFTWARE SWITCH REGISTER 


EACH OF THE THREE PROGRAMS WILL RUN WITH OR WITHOUT 
A CONSOLE SWITCH REGISTER. IF A PHYSICAL CONSOLE 
SWITCH REGISTER IS PRESENT ON THE SYSTEM, THEN THESE 
PROGRAMS WiLL GO AHEAD AND USE IT FOR THE SwITCH 


SEQ 0007 
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FUNCTIONS DESCRIBED IN 5.1 ABOVE. IF HOWEVER THERE 
IS NO CONSOLE SWITCH REGISTER ON THE SYSTEM A 
SCFTWARE SWITCH REGISTER WILL BE USED. THIS 
SOFTWARE SWiTCH REGISTER CAN BE EXAMINED OR MODIFIED 
AT ANY TIME BY THE USER IF HE TYPES CONTROL G WHILE 
THE PROGRAM [S RUNNING. THIS CONTROL G WILL CAUSE 
THE CONTENTS OF THE SOFTWARE SWITCH REGISTER TO BE 
TYPED ON THE TTY AND ASK THE USER FOR A NEW VALUE. 
WHEN THE USER TYPES A VALUE AND CARRIAGE RETURN THEN 
THE PROGRAM WILL RESUME TESTING AT THE SAME POINT AT 
WHICH IT LEFT OFF WHEN THE USER TYPED CONTROL G. 
NOTE THAT WHEN NOT RUNNING UNDER ACT, APT OR CHAIN 
THE USER WILL BE ASKED FOR A SOFTWARE SWITCH 
REGISTER VAIUE AFTER LOADING ADDRESS 200 AND 
STARTING THE PROGRAM THE FIRST TIME THE PROGRAM IS 
RUN AFTER LOADING (ONLY IF NO CONSOLE SWITCH 
REGISTER 1S ON THE SYSTEM). 


INTERRUPTS TEST 


IN PROGRAM CKFPBAO, THERE IS A SPECIAL TEST FOR 
CHECKING THE CORRECT FLOWS OF THE FPP. THIS TEST 


MODULE WILL PROBABL 

- IF THIS MODULE IS NOT IN THE SYSTEM 
THIS TEST WILL AUTOMATICALLY BE DESELECTED. IF THIS 
TEST MODULE IS ON THE SYSTEM AND SW<7>=0 THIS TEST 
WILL BE RUN. IF SW<7>=1 THIS TEST WILL BE 
DESELECTED. 
ACT, APT AND XXDP COMPATIBILITY 
THE SE ge * tale ARE FULLY COMPATIBLE WITH: 


ACT 
XXDP MONITOR AND CHAIN PROGRAMS. 


PROGRAM DESCRIPTION 


ROUND\ TRUNK TEST 
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THIS IS A_ TEST OF THE ROUND\TRUNK FLOWS. IN 
PARTICULAR TWO THINGS ARE TESTED: FIRST A CONDITION 
IN WHICH ROUNDING RESULTS IN _ THE NEED FOR 
RENORMALIZATION, AND SECOND THE PSW CONDITION CODES 
N AND Z BIT COMMBINATIONS 


OVER\UNDER TEST 


et IS A th TEST OF THE OVER\UNDER FLOWS. ONE 
OVERFLOW AND TWO UNDERFLOW CONDITIONS ARE CHECKED. 
THE REMAINING UNDERF LOW COND. AND THE REMAINING 
OVERFLOW COND. WILL BE CHECKED LATER USING THE XXX 
INSTRUCTION. HERE EACH CONDITION TESTED IS CHECKED 
BOTH WITH TRAPS ENABLED (FIU=1 OR FIV=1) AND ALSO 
WITH TRAPS DISABLED (FIU=0 OR FIV=0). 


LDCFD AND LDCDF TEST 


THIS IS A TEST OF LDCFD AND LDCDF. 
CMPD TEST 


THIS IS A TEST OF THE CMPD INSTRUCTION. NOTE THAT A 
SUBROUTINE IS USED TO SET UP OPERANDS, EXECUTE THE 
INSTRUCTION AND CHECK THE RESULTS 


DIVD WITH (FSRC=0) AND (BUT FD) TEST 


THIS IS A TEST OF THE DIVD INSTRUCTION WITH A ZERO 
DIVISOR. THE CONDITION IS CHECKED WITH BOTH TRAP 
ENABLED AND TRAPS DISABLED. 


DIVF TEST 


THIS IS A TEST OF THE DIVF INSTRUCTION. NOTE THAT A 
SUBROUTINE IS USED TO SET UP THE OPERANDS, EXECUTE 
THE INSTRUCTION AND CHECK THE RESULTS. 


DIVD TEST 


THIS IS A TEST OF THE DIVD INSTRUCTION. NOTE THAT A 
SUBROUTINE IS USED TO SET UP THE Angee. EXECUTE 
THE INSTRUCTION AND CHECK THE RESULTS 


MULF TEST 
THIS IS A TEST OF TRE MULF_ INSTRUCTION. IT MAKES 
USE OF A SUBROUTINE TO SET UP THE OPERANDS, EXECUTE 
THE MULF INSTRUCTION AND CHECK THE RESULTS. 
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TEST 11 


TEST 13 


TEST 14 


TEST 15 


TEST 16 


TEST 17 


MULD TEST 


THIS IS A_TEST OF THE MULD INSTRUCTION. NOTE THAT A 
SUBROUTINE IS USED TO SET UP THE OPERANDS, EXECUTE 
THE MULD INSTRUCTION AND CHECK THE RESULTS. 


UNDER\OVER FLOW, USING MULF WITH TRAPS DISABLED, TEST 


THIS IS A TEST OF THE OVERFLOW AND UNDERFLOW 
CONDITIONS USING THE MULF INSTRUCTION WITH TRAPS 
DISABLED. NOTE THAT A SUBROUTINE IS USED TO SET UP 
THE OPERANDS, EXECUTE THE MULF INSTRUCTION AND CHECK 
THE RESULTS. 


UNDER\OVER FLOW, USING MULD WITH TRAPS DISABLED, TEST 


THIS IS A TEST OF THE OVER/LOW AND UNDERFLOW 
CONDITIONS THAT CAN ARRISE USING THE MULD 
INSTRUCTION WITH TRAPS DISABLED. A SUBROUTINE IS 
USED TO SET UP THE OPERANDS, EXECUTE THE MULD 
INSTRUCTION AND CHECK THE RESULTS. 


UNDER\OVER FLOW, USING MULF WITH TRAPS ENABLED, TEST 


THIS IS A TEST OF THE UNDERFLOW AND_ OVERFLOW 
CONDITIONS THAT CAN OCCUR USING THE MULF 
INSTRUCTION. A SUBROUTINE IS CALLED TO SET UP _ THE 
OPERANDS, EXECUTE THE MULF INSTRUCTION AND CHECK THE 
RESULTS. HERE THE PARTICULAR INTERRUPT, EITHER 
a OR UNDERFLOW, IS ENABLED SO A TRAP SHOULD 


UNDER\OVER FLOW, USING MULD WITH TRAPS ENABLED, TEST 


THIS IS A TEST OF THE OVER FLOW AND UNDER FLOW 
CONDI IONS her THE MULD INSTRUCTION WITH TRAPS 
NABLED. SUBROUTINE IS USED TO SET UP _ THE 
A EXECUTE THE MULD INSTRUCTION AND CHECK THE 


MODF TEST 


THIS IS A TEST OF THE MODF INSTRUCTION, WHICH MAKES 
USE OF A SUBROUTINE TO SET UP THE OPERANDS, EXECUTE 
THE MODF INSTRUCTION AND CHECK THE RESULTS. 


MODD TEST 


THIS IS A TEST OF THE MODD INSTRUCTION. _IT MAKES 
USE OF A SUBROUTINE TO SET UP THE ARGUMENTS, EXECUTE 


SEQ 0010 | 
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SEQ 0011 
THE INSTRUCTION AND CHECK THE RESULTS. 
TEST 20 UNDER\OVER FLOW, USING MODF WITH TRAPS DISABLED, TEST 


THIS IS A TEST of THE MODF OVERFLOW AND UNDERFLOW 
CONDITIONS. IT MAKES USE OF A SUBROUTINE TO SETUP 
THE OPERANDS, EXECUTE THE MODF INSTRUCTION AND CHECK 
THE RESULTS. TRAPS ARE DISABLED DURING THIS TEST. 


TEST 21 UNDER\OVER FLOW, USING MODD WITH TRAPS DISABLED, TEST 


THIS IS A TEST OF THE MODD INSTRUCTION'S OVER FLOW 
AND UNDER FLOW CONDITIONS. A SUBROUTINE IS USED TO 
SET UP THE OPERANDS, EXECUTE THE MODD INSTUCTION AND 
CHECK THE RESULTS. 


TEST 22 INTERRUPT CORRECT FLOWS TEST 


THIS IS A TEST OF THE ‘CORRECT’ FLOWS. THIS PART OF 
THE MICRO CODE HAS AS _ITS PURPOSE INSURING THAT 
INTERRUPT REQUESTS MADE DURING CERTAIN LENGTHY FPP 
INSTRUCTIONS GET HONORED. THIS IS DONE IN A WAY 
SUCH THAT IF AN INTERRUPT REQUEST OCCURS DURING oat 
OF THESE INSTRUCTIONS THE STATE OF 
INSTRUCTION'S EXECUTION WILL BE THE SAME AS IF THAT 
INSTRUCTION HAD NEVER BEEN FETCHED AND ITS EXECUTION 
NEVER STARTED. THUS THE MICRO CODE WILL RESTORE ALL 
cies ate tae BACK A AL, PC AND LEAVE THE FPS AND ACO 
THE INSTRUCTIONS FOR WHICH THIS IS NECESSARY ARE: 


ADD (OR SUB) 
DIV 
MUL 
MCD 
(BOTH DOUBLE AND FLOATING) 


ALL ADDRESSING MODES WILL BE TRIED WITH THE ADDD 
INSTRUCTION. THEN EACH OF THE — INSTRUCTIONS 
NOTE THAT THIS TEST 
WHICH WILL 
BE PRESENT “MANUFACTURING 
ENVIRONMENT, TO ~, I 

DESIGNED TO RAISE INTERRUPT REQUES 
PROCESSOR IF A BIT IS NSE IN_ITS STATUS REGISTER AND 
ONLY WHEN AN FPP_ INSTRUCTION IS ENCOUNTERED. 
THEREFORE THIS TEST WILL BE RUN CONDITIONALLY 
(DEPENDENT UPON WHETHER OR NOT THE STATUS REGISTER 
OF THE TEST EQUIPMENT TIMES OUT , eee 


T 
G LOCATION 777774 
REFERENCES TO THIS LOCATION ARE MADE ~~ INDIRECT 
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THROUGH THIS PROGRAMS LOCATION CORINT, SO THAT IF 
THE USER HAS MODIFIED THE TEST EQUIPMENT’S STATUS 
REGISTER TO RESPOND TO A DIFFERENT ADDRESS LOCATION 
CORINT MUST BE MADE TO _ CONTAIN THAT _ STATUS 
REGISTER'S ren ADDRESS). THIS PROGRAM ASSUMES THAT 


C 
ARE INDIRECT, THROUGH T PROGRAM'S LOCATION —"s 
(IF THE TEST EQUIPMENT IS MADE TO TRAP TO 
DIFFERENT VECTOR LOCATION CORTRP MUST CONTAIN THE 
ADDRESS OF THIS VECTOR). 


LISTING 


MNUMBE R=266 
PROGNUM=2 


Lis, | 6 
-NLIST MD,MC,CND 


SEQ 0012 
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.ENABL ABS 
"MCALL .HEADER, .SWRHI,.EQUAT,.SETUP,.$CATCH, SACT11, .SCMTAG 
"MCALL .$EOP,.$SCOPE,.$ERROR, .SSAVE.. $TYPE, .$TYPOCT 

"MCALL .$TYPDEC,.$TRAP, .$POWER, . SAPTHDR, . SAPTBLS 


-MCALL .SAPTYPE,.$READ 
“MCALL_ EQUIV ;REMOVE FOR PDP=10 ASSEMBLY 
TITLE CKFPBAO FP11F FLTG PNT PRT B 
:*COPYRIGHT (C) 1979 
:*DIGITAL EQUIPMENT CORP. 
7 *MAYNARD, MASS. 01754 


o¢ 


THIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
T*PACKAGE (MAINDEC-11-DZQAC-C3), JAN 19, 1977. 
ot 


$TN=1 
$SWR=160000 ::HALT ON ERROR, LOOP ON TEST, INHIBIT ERROR TYPOUT 


FPVECT=244 
$SWR=177400 
$SWRMSK=200 


-SBTTL BASIC DEFINITIONS 
cua. he OF THE STACK POINTER *** 1100 *** 


STACK= 
ERROR=EMT 


SCOPE=I0T 
; *MISCELLANEOUS DEFINITIONS 
HT= 11 3;CODE FOR HORIZONTAL TAB 


LF= 12 ;:CODE FOR LINE FEED 

CR= 15 3:CODE FOR CARRIAGE RETURN 

CRLF= 200 ;;CODE FOR CARRIAGE RETURN-LINE FEED 
PS= 177776 3 PROCESSOR STATUS WORD 


P 
STKLMT= 177774 


2s STACK LIMIT REGISTER 
PIRQ= 177772 . OGRAM_IN 


TERRUPT REQUEST REGISTER 


DSWR 177570 ; s HARDWARE SWITCH REGISTER 
DDISP= 177570 HARDWARE DISPLAY REGISTER 
; *GENERAL PURPOSE REGISTER DEF INITIONS 

RO= 20 ;;GENERAL REGISTER 

R1= %1 ze RAL REGISTER 

R2= Re 3 :GENERAL REGISTER 

R3= 23 ;;GENERAL REGISTER 

R4= BS 3;GENERAL REGISTER 

R5= %5 3;GENERAL REGISTER 

R6= 26 7 :GENERAL REGISTER 

R7= %7 ;;GENERAL REGISTER 

SP= 26 23 STACK POINTER 

PC= 27 PROGRAM COUNTE 
;*PRIORITY LEVEL DEFINITIONS * 
PRO= 0 7zPRIORITY LEVEL 0 

PR1= 40 7zPRIORITY LEVEL 1 

PR2= 100 7;PRIORITY LEVEL 2 

PR3= 140 7 zPRIORITY LEVEL 3 


SEQ 0013 
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PRI 
;*" SWITCH REGISTER" sw Teh DEFINITIONS 
W15= 00000 


PR4= 200 

PR5= 240 

PR6= 300 

PR7= 340 

Swi 1 

SW14= 40000 

SW13= 20000 

SW12= 10000 

SW11= 4000 

SW10= 2000 

SwO9= 1000 

SwO8= 400 

SwO7= 200 

SwO6= 100 

SwOS= 40 

SwO4= 20 

swO3= 10 

SwO2= 4 

SwOl= 2 

swo0= 1 
SW9=SWO9 
SW8=SW08 
SwW7=SW07 
SW5=SW05 
SwW4=SW04 
SW3=SwW03 
SW2=Sw02 
SW1=Sw01 
SwO=S 

3 *DATA 

BIT15= 10000 

BIT14= 40000 

BIT13= 20000 

BIT12= 10000 

BIT11= 4000 

BIT10= 2000 

IT09= 1000 
I1T08= 400 

BITO7= 200 

BITO6= 100 

BITO5= 40 

BIT04= 20 

BITO3= 10 

BITO2= 4 

BITOI= 2 

BITOO= 1 
BIT9=B1T09 
B1T8=81T08 
B1T7=BI1T07 
B1T6=B1T06 
B1T5=81T05 
B1T4=B1704 
B1T3=81T03 
BIT2=BITO2 


BIT1=B]T01 


SEQ 0014 
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SEQ 0015 


ERRVEC= 4 TIME OUT AND OTHER ERRORS 
000010 RESVEC= 10 ; RESERVED AND ILLEGAL INSTRUCTIONS 
000014 TBITVEC=14 soy OUT 
000014 TRIVEC= 14 ;; TRACE TRAP 
000014 BPTVEC= 14 ; sBREAKPOINT TRAP (BPT) 
000020 IOTVEC= 20 33 INPUT/OUTPUT TRAP (IOT) **SCOPE** 
000024 PWRVEC= 24 3 ;POWER FAIL 
000030 EMTVEC= 30 3 EMULATOR TRAP (EMT) **ERROR** 
000034 TRAPVE C=34 33" 'TRAP*’ TRAP 
TKVEC= 60 city KEYBOARD VECTOR 
000064 TPVEC= 64 J hi PRINTER VECTOR 
000240 PIRQVEC=240 PROGRAM INTERRUPT REQUEST VECTOR 
878 -SBTTL FPP REGISTER DEFINITIONS 
879 000000 ACO =%0 
880 000001 AC] =%1 
881 000002 AC2 =%2 
000003 AC3 =%3 
883 000004 AC4 =%4 
884 000005 ACS =%5 
885 000006 AC6 =%6 
000007 AC7 =%7 


888 
889 - SBTTL — CATCHER 


;*ALL UNUSED LOCATIONS FROM 4 - 776 CONTAIN A ‘'.+2,HALT"’ 
> *SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
adatahie-* °. CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 


000174 
000174 000000 DISPREG: “WORD 0 3;SOFTWARE DISPLAY REGISTER 
000176 000000 SWREG: -WORD 0 7s SOFTWARE SWITCH REGISTER 


.SBITL STARTING ADDRESS(ES) 
000200 000137 004336 JMP @ASTART ;;JUMP TO STARTING ADDRESS OF PROGRAM 
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890 -SBTTL COMMON TAGS 


ce PARRRASAAAASZARAASAALAREAARARARARARARRSARAARARARRAARR AAR ARERR SSDS SO! 


[*THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 


;*USED IN THE PR 
-=1100 


001100 

001100 SCMTAG: :z START OF COMMON TAGS 

001100 000000 -WORD 0 

001102 000 STSTNM: .BYTE 0 3; CONTAINS THE TEST NUMBER 

001103 000 SERFLG: .BYTE 0O : CONTAINS ERROR FLAG 

001104 000000 SICNT: .WORD 0 ; CONTAINS SUBTEST ITERATION COUNT 

601106 000000 SLPADR: .WORD 0 ; CONTAINS SCOPE LOOP ADDRESS 

001110 000000 SLPERR: .WORD 0 : CONTAINS SCOPE RETURN FOR ERRORS 

001112 000000 SERTTL: .WORD 0 ; CONTAINS TOTAL ERRORS DETECTED 

001114 000 SITEMB: .BYTE 0 3 CONTAINS beg CONTROL BYTE 

001115 001 $E : .BYTE 1 ; CONTAINS MAX. ERRORS PER TEST 

001116 000000 SERRPC: .WORD 0 :: CONTAINS PC OF LAST ERROR a + aba 

001120 000000 $SGDADR: .WORD 0 ; CONTAINS ADDRESS OF ‘GOOD' DAT 

001122 000000 SBDADR: .WORD 0 3: CONTAINS ADDRESS es "BAD' DATA. 

001124 000000 $GDDAT: .WORD 0 : CONTAINS ‘GOOD’ DAT 

001126 000000 DAT: .WORD 0 :: CONTAINS ' " RTA 

001130 000000 -WORD 0 +S RESERVED=-NOT TG BE USED 

001132 000000 -WORD 0 

001134 000 $AUTOB: .BYTE 0 7 AUTOMATIC MODE INDICATOR 

AEH 000 SINTAG: een 8 7, INTERRUPT MODE INDICATOR 

001140 177570 : WORD DSWR ; ADDRESS OF SWITCH REGISTER 

001142 177570 DISPLAY: .WORD DDISP ; ADDRESS OF DISPLAY REGISTER 

001144 177560 KS: 177560 eeTTy KBD STATUS 

001146 177562 $TKB: 177562 :TTY KBD BUFFER 

001150 177564 $TPS: 177564 SSTTY PRINTER STATUS REG. ADDRESS 

001152 177566 STPB: 177566 : TTY PRINTER BUFFER REG. ADDRESS 

001154 SNULL : BYTE 0 +s CONTAINS NULL CHARACTER FOR FILLS 

001155 2 SFILLS: .BYTE 2 CONTAINS # OF FILLER CHARACTERS REQUIRED 

001156 012 SFILLC: .BYTE 12 33 INSERT FILL CHARS. AFTER A ‘LINE FEED" 

001157 000 STPFLG: .BYTE 0O ;""TERMINAL AVAILABLE'’ 4 (BI T<97>=0=YES) 

001160 000000 E WORD 0 ; : CONTAINS THE ADDRESS FROM 
:;WHICH (S$REGO) WAS OBTAINED 

000024 -REPT $CM3 

001162 000000 SREGO: .WORD 0 : CONTAINS ( (SREGAD) +0) 

001164 000000 S$REG1: .WORD 0 33 TAINS (($REGAD) +2) 

001166 000000 SREG2: .WORD 0 : CONTAINS (($REGAD) +4) 

001170 000000 S$REG3: .WORD 0 : CONTAINS (($REGAD) +6) 

001172 000000 SREG4: .WORD 0 7 CONTAINS (($REGAD)+10) 

001174 000000 SREGS: .WORD 0 sCONTAINS (($REGAD) +12) 

001176 000000 EG6: .WORD 0 33 TAINS (($REGAD) +14) 

001200 000000 $SREG7: .WORD 0 7 CONTAINS (($REGAD) +16) 

001202 000000 S$REGiIO: .WORD 0 7 CONTAINS (($REGAD) +20) 

001204 000000 $REG11: .WORD 0 : CONTAINS (($REGAD) +22) 

001206 000000 SREGI12: .WORD 0 7: CONTAINS ((S$REGAD) +24) 

001210 000000 $REG13: .WwCRD 0 7 CONTAINS (($REGAD) +26) 

001212 000000 S$REG14: .WORD 0 : CONTAINS (($REGAD) +30) 

001214 000000 $REG15: .WwORP 0 7: CONTAINS (($REGAD) +32) 

001216 000000 SREG16: .WOFD 0 ; CONTAINS (($REGAD) +34) 

001220 000000 SREG17: .WOFD 0 CONTAINS (($REGAD) +36) 

001222 000000 SREG20: .WORD 0 3S Ae ( (SREGAD) +40) 

001224 000000 $SREG21: .WORD 0 : 73 C TAINS (($REGAD) +42) 

001226 000000 SREG22: .WORD 0 : CONTAINS (($REGAD) +44) 





= 


E é 
CKFPBAO FP11F FLTG PNT PRT B MACRO M1111. 18=SEP=79 13:43 PAGE 8-1 


COMMON TAGS SEQ 0017 
001230 000000 $REG23: .WORD 0 SZ CONTAINS (($REGAD) +46) 
000024 LREPT =. 24 
001232 000000 STH O: WORD 0 ; USER DEFINED 
001 000000 STMP1: WORD 0 ; USER DEFINED 
1 000000 $TMP2: .WORD 0 ;;USER DEFINED 
001240 000000 STMP3: WORD 0 ;;USER DEFINED 
001242 000000 STMP4: WORD 0 ;;USER DEFINED 
001244 000000 STMPS: .WORD 0 ;;USER DEFINED 
001246 000000 STMP6: WORD 0 ;;USER DEFINED 
001250 000000 $TMP7: .WORD 0 ;7USER DEFINED 
001252 000000 $TMP10: .WORD 0 ;7USER DEFINED 
001254 000000 $TMP11: .WORD 0 és R DEFINED 
001256 000000 $TMP12: .WORD 0 7 ;USER DEFINED 
001260 000000 $TMP13: .WORD 0 ; ER DEFINED 
001262 000000 $TMP14: .WORD 0 ;7USER DEFINED 
001264 000000 $TMP15: .WORD 0 ;;USER DEFINED 
001266 000000 $STMP16: .WORD 0 7ZUSER DEFINED 
001270 000000 $TMP17: .WORD 0 ;USER DEFINED 
001272 000000 $TMP20: .WORD 0 3; USER DEFINED 
001274 000000 $STMP21: .WORD 0 7 USER DEFINED 
001276 000000 $TMP22: .WORD 0 ;;USER DEFINED 
001300 000000 $TMP23: .WORD 0 7 USER DEFINED 
001302 000000 STIMES: 0 >;MAX. NUMBER OF ITERATIONS 
001304 000000 SESCAPE :0 sESCAPE ON ERROR ADDRESS 
alae 207 377 377 $BELL: .ASCIZ <207><377><377> = CODE FOR BELL 
3 
001312 077 $QUES: .ASCII /?/ s QUESTION MARK 
001313 015 S$CRLF: .ASCII <15> 7:2 CARRIAGE RETURN 
001314 012 000 $LF: -ASCIZ <12> ScLINE FEED 
LF RARER EAE REE EEE EERE REE KEEERER AREER EEE 
-SBTTL APT MAILBOX-ETABLE 
DLA RRR EERE RRR ERE EERE EERE ERE ERE EER 
.EVEN 
001316 SMAIL: : APT MAILBOX 
001316 (00000 SMSGTY: .WORD AMSGTY ;;MESSAGE TYPE CODE 
001320 000000 SFATAL: .WORD AFATAL ;;FATAL ERROR NUMBER 
001322 000000 STESTN: .WORD ATESTN ;;TEST NUMBER 
001324 000000 SPASS: .WORD APASS 7zPASS COUNT 
001326 000000 SDEVCT: .WORD ADEVCT ;;DEVICE COUNT 
001330 000000 SUNIT: WORD AUNIT 3:1/0 UNIT NUMBER 
001332 000000 SMSGAD: .WORD AMSGAD ;;MESSAGE ADDRESS 
000000 SMSGLG: .WORD AMSGLG ;;MESSAGE L T 
001336 SETABLE 3c APT IRONMENT TABLE 
001336 000 SENV: -BYTE AENV 7 ENVIRONMENT BYTE 
001337 000 SENVM: .BYTE AENVM 7 ENVIRONMENT MODE BITS 
001340 000000 SSWREG: .WORD ASWREG ;;APT SWITCH REGISTER 
001342 000000 SUSWR: .WORD  AUSWR ssUSER SWITCHES 
001344 000000 $CPUOP: .WORD ACPUOP :CPU TYPE, th 
th BITS 15- by CPU TYPE 
i* A = 01,11/05=02,11/20=03,11/40=04,11/45=05 
3? /70=06.PDQ=07,0=10 
:* BIT 10=REAL TIME cL OCk 
s* BIT peal hy Me, POINT eeecesoun 
hel BIT 8=MEMORY MANAGEMENT 
001346 000 $MAMS1: .BYTE AMAMS1 ;;HIGH ADDRESS.M.S. BYTE 
001 347 000 ; $MTYP1: .BYTE AMTYP1 ;;MEM. TYPE .BLKAT 


MEM.TYPE BYTE == (HIGH BYTE) 






. = 
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APT MAILBOX=E TABLE SEQ 0018 


:* 900 NSEC CORE=001 
:* 300 NSEC BIPOLAR=002 
: 500 NSEC MOS=003 
001350 000000 $MADR1: .WORD AMADR1 ;;HIGH ADDRESS ,BLK#1 (> 
“eee? MEM.LAST ADDR.=3 BYTES, THIS WORD AND LOW OF ‘‘TYPE’’ ABOVE 
001352 000 SMAMS2: .BYiE AMAMS2 ;;HIGH ADDRESS.M.S. BYTE 
001353 000 SMTYP2: .BYTE AMTYP2 ; MEM. TYPE .BLK#2 
001354 000000 SMADR@: WORD  AMADR2 : :MEM.LAST ADDRESS .BLK42 
001356 000 SMA4MS3: .BYTE AMAMS3 ;;KIGH ADDRESS.M.S.BYTE 
001357 000 S$MTYP3: .BYTE AMTYP3 2 3MEM. TYPE ,BLKA3 
001360 000000 SMADR3: .WORD AMADR3 ;:MEM.LAST ADDRESS BLK#3 
001362 000 SMAMS4: .BYTE  AMAMS4 HIGH ADDRESS.M.S.BYTE 
001363 000 SMTYP4: BYTE AMTYP4 :;MEM. TYPE ,BLKM4 
001364 000000 SMADR4: .WORD AMADR4 ;:MEM.LAST ADDRESS BLK#4 
001366 000000 SVECTI: WORD  AVECT. 3; INTERRUPT VECTOR#1 ,BUS PRIORITY#1 
001370 000000 $VECT2: :WORD AVECT2 ;; INTERRUPT VECTORM2BUS PRIORITYA2 
001372 000000 $SBASE: .WORD ABASE ;;BASE ADDRESS OF EQUIPMENT UNDER TEST 
001374 000000 SDEVM: .WORD ADEVM ;;DEVICE MAP 
001376 000000 $CDW1: .WORD ACDW1 ;;CONTROLLER DESCRIPTION WORDA1 
001400 000000 $CDW2: .WORD ACDW2  ;;CONTROLLER DESCRIPTION WORD#2 
001402 000000 SDDWO: .WORD ADDWO  ;;DEVICE DESCRIPTOR WORD#O 
001404 000000 $DDW1: .WORD ADDW1  ;;DEVICE DESCRIPTOR WORDA1 
001406 000000 $DDW2: .WORD ADDW2 ;;DEVICE DESCRIPTOR WORDA2 
001410 000000 $DDW3: .WORD ADDW3  ;;DEVICE DESCRIPTOR WORDAS 
007412 000000 $DDW4: .WORD ADDW4  ;;DEVICE DESCRIPTOR WORDA4 
001414 000000 $DDW5 WORD ADDWS ;;DEVICE DESCRIPTOR WORDAS 
001416 000000 $ODW6: .WORD ADDW6  ;;DEVICE DESCRIPTOR WORD#6 
001420 000000 $DDW7: .WORD ADDW7 ;;DEVICE DESCRIPTOR WORDA7 
001422 000000 SDDW8: .WORD ADDW8  ;;DEVICE DESCRIPTOR WORD#8 
001424 000000 SDDW9: .WORD ADDW9 ;;DEVICE DESCRIPTOR WORDA9 
061426 000000 $DDW10: .WORD ADDWI0 ;;DEVICE DESCRIPTOR WORD#10 
001430 000000 $DDW11: .WORD ADDW11 ;;DEVICE DESCRIPTOR WORD#11 
001432 000000 $DDW12: .WORD ADDWI2 ;;DEVICE DESCRIPTOR WORDA12 
001434 000000 $DDW13: .WORD ADDW13 ;;DEVICE DESCRIPTOR WORDA#13 
001436 000000 $DDW14: .WORD ADDW14 ;;DEVICE DESCRIPTOR WORD#14 
001440 000000 $DDW15: .WORD ADDW15 ;;DEVICE DESCRIPTOR WORDA15 





SETEND: 
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894 
896 


001442 
001442 
001450 


001452 
001460 


001462 
001470 


001472 
001500 


001502 
001510 


001512 
001520 


001522 
001530 


001532 
001540 


001542 
001550 


001552 
001560 


001562 
001570 


001572 
001600 


001602 
001610 


001612 
001620 


001622 
001630 


000266 


037724 
070056 


037756 
070074 


040012 
070056 


040117 
070056 


040224 
070056 


040331 
070056 


040436 
070056 


040543 
070056 


040650 
070056 


040757 
070056 
041066 
070056 


041202 
070056 


041314 
070056 


041426 
070056 


041523 
070106 


066262 


066352 


066262 


066262 


066262 


066262 


066262 


066262 


066262 


066262 


066262 


966262 


066262 


066262 


066417 


G 
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070604 


070642 


070604 


070604 


070604 


070604 


070604 


070604 


070604 


070604 


070604 


070604 


070604 


070604 


170670 





SEQ 0019 


.SBTTL ERROR POINTER TABLE 

:*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 

3*THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 

= *LOCATION $ITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT. 
*NOTE!: IF $I1TEMB IS 0 THE ONLY PERTINENT DATA IS (S$ERRPC) 


* #NOTE2: EACH !TEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 
i* EM ;zPOINTS TO THE ERROR MESSAGE 
:™ DH :zPOINTS TO THE DATA HEADER 
;* DT :zPOINTS TO THE DATA 
;* DF ::POINTS TO THE DATA FORMAT 
SERRTB: 

-REPT |§MNUMBER 
sITEM 1 

~.WORD £&M1,DH1,DT1,DF1 
;1TEM 2 

-WORD €&M2,DH2,DT2,DF2 
Z ITEM 3 

-WORD EM3,DH3,DT3,DF3 
; ITEM 4 

-WORD EM4,DH4,DT4,DF4 
;ITEM 5 

-WORD EMS,DH5,DTS,DF5 
7 ITEM 6 

-WORD EM6,DH6,DT6,DF6 
s ITEM 7 

-WORD EM7,DH7,D17,DF7 
7 1TEM 10 

-WORD €&M10,DH10,DT10,DF10 
ITEM 11 

-WORD &M171,DH11,D111.DF11 
7 ITEM 12 

-WORD €&M12,DH12,DT12,DF 12 
ZI1TEM 13 

-WORD €M13,DH13,D113,DF 13 
7ITEM 14 

-WORD £&M14,DH14,DT14,DF 14 
ZITEM 15 

-WORD £€M15,DH15,DT15,DF15 
Z ITEM 16 

-WORD EM16,DH16,D116.,DF 16 
ZITEM 17 


-WORD €M17,DH17,D117,DF17 


CKFPBAO FPIIF FLTG PNT 
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001632 
001640 
001642 
001650 


001652 
001660 


001662 
001670 


001672 
001700 


001702 
001710 


001712 
001720 


001722 
901730 


001732 
001740 


001742 
001750 


001752 
001760 


001762 
001770 


001772 
002000 
002002 
002010 
002012 
002020 
002022 
002030 
002032 
002040 


002042 
002050 


002052 
002060 


041600 
070115 


041632 
070115 
041664 
070115 
041745 
070125 


042022 
070125 


042120 
070125 


042205 
070125 


042120 
070125 


042303 
070125 


042355 
070125 


041770 
070125 


042422 
070151 


042445 
070151 


042477 
070151 


042552 
070151 


042620 
070125 
042643 
079125 
042675 
970125 


042750 
079125 


PRT B 


066262 


066466 


066555 


066262 


066262 


066262 


066262 


066262 


066262 


066262 


066262 


066262 


066262 


066262 


066262 


066262 


066262 


066262 


006262 
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070710 


070732 


070754 


070772 


070772 


070772 


070772 


070772 


070772 


070772 


070772 


070772 


070772 


070772 


070772 


070772 


070772 


070772 


070772 


s ITEM 


;1TEM 


; ITEM 


ZITEM 


: ITEM 


7 1TEM 


: ITEM 


ZITEM 2 


7; ITEM 
7 1TEM 
7 1TEM 
7 ITEM 
7 ITEM 
;1TEM 
7 ITEM 
ITEM 
7 ITEM 
;1TEM 


S]TEM 


20 


21 


. WORD 


. WORD 


EM20,DH20,DT20,DF 20 
EM21,DH21,D121,DF 21 
EM22 ,DH22 ,DT22,DF 22 
EM23,DH23,D123,DF 23 
EM24 ,DH24 ,DT24,DF 24 
EM25,DH25 ,DT25,DF 25 
EM26,DH26,D126,DF 26 
EM27,DH27,DT27,DF27 
EM30,DH30,D130,DF 30 
EM31,DH31,D131,DF 31 
EM32,DH32 ,DT32,DF 32 
EM33,DH33,D133,DF 33 
EM34 ,DH34 ,D134,DF 34 
EM35,DH35,D135,DF 35 
EM36 ,DH36,D136,DF 56 
EM37,DH37,D137,DF 37 
EM40,DH40,DT40,DF40 
EM41,DH41,D141,DF41 


EM42,DH42 ,DT42,DF 42 


SEQ 0020 





002062 
002079 
002072 
002100 


002102 
002110 


002112 
002120 


002122 
002120 


002132 
002140 


002142 
062150 


002152 
002160 


002162 
002170 


002172 
002200 


002202 
002210 


002212 
002220 


002222 
002230 
002232 
002240 


002242 
002250 


002252 
002260 


002262 
002270 


002272 
002300 


002302 
002310 
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043101 
070125 


043232 
070125 


043300 
070125 


043353 
070151 


04 3450 
070151 


043564 
070151 


043637 
070151 


043705 
070151 


051535 
070245 


051566 
070245 


051503 
070245 


051616 
070245 


651707 
070245 


051777 
070245 


052101 
070245 


052275 
070245 


052471 
070245 


052602 
070245 


052721 
070245 


PRT B 


066262 


066262 


066262 


066262 


066262 


066262 


066262 


066262 


066262 


066262 


066262 


066262 


066262 


066262 


066262 


066262 


066262 


066262 


066262 


MACRO M1111 


070772 


070772 


070772 


070772 


070772 


070772 


070772 


070772 


071120 


071120 


071120 


071120 


071120 


071120 


071120 


071120 


071120 


071120 


071120 


ZITEM 43 
. WORD 


7 1TEM  -. 
ITEM 45 
7 ITEM 46 
ITEM 47 
7; 1TEM 50 
ITEM 51 
3 1TEM 52 
ITEM 53 
ZITEM 54 
7 ITEM 55 
ITEM 56 
7 1TEM 57 
7 1TEM 60 
7; ITEM 61 
7 1TEM 62 
7 1TEM 63 
7 ITEM 64 


ITEM 65 
. WORD 


i 
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EM43,DH43,D143,DF43 
EMG4 ,DH44 D144 ,DF44 
EMG5 ,DH45,D145,DF45 
EM46,DH46,D146,DF 46 
EM47,.DH47,D147,DF47 
EMS0,DH50,DT50,DF 50 
EM51,DH51,DT51,DF 51 
EMS2,DH52,DT52,DF52 
EMS3,DH53,D153,DF53 
EM54 ,DH54,DT54,DF 54 
EMS5,DH55,.D155,DF55 
EM56,DH56,D156,DF 56 
EMS7,DH57,DT57,DF 57 
EM60,DH60,DT60,DF 60 
EM61,DH61,DT61,DF61 
EM62,DH62,DT62,DF 62 
EM63,DH63,D163,DF 63 
EM64 ,DH64 ,DT64 DF 64 


EM65 ,DH65 ,DT65 ,DF65 


SEQ 0021 | 
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002312 
002320 


002322 
002330 


002332 
002340 
002342 
002350 
002352 
002360 
002362 
002370 
002372 
002400 


002402 
002410 


002412 
002420 


002422 
002430 
002432 
002440 


002442 
002450 


002452 
002460 


002462 
002470 


002472 
002500 
002502 
002510 


002512 
002520 


002522 
002530 


002532 
002540 


053034 
070245 


053103 
070245 
053166 
070277 
053217 
070277 


053247 
070277 


053247 
070277 


053301 
070277 


053410 
070277 


053501 
070277 


053571 
070277 


053701 
070277 


053764 
070277 


054160 
070277 


054354 
070277 
054466 
070277 
054633 
070277 


054742 
070277 


055051 
070277 


055160 
070277 


J .é 
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071120 


071120 


071120 


071120 


071120 


071120 


071120 


071120 


071120 


071120 


071120 


071120 


071120 


071720 


071120 


071120 


071120 


071120 


071120 


s ITEM 


;1TEM 


s ITEM 


; ITEM 


Z ITEM 


ITEM 


S1TIM 


: ITEM 


: ITEM 


7 ITEM 


Z ITEM 


Z ITEM 


7 ITEM 


ZITEM 


7 1TEM 


Z ITEM 


7 ITEM 


7 ITEM 


71TEM 


68 
. WORD 


EM66 ,DH66 ,D166,DF 66 
EM67 ,DH67,DT67,DF67 
EM70,DH70,DT70,DF 70 
EM71,DH71,D171,DF71 
EM72,DH72,D172,DF72 
EM73,DH73,D173,DF 73 
EM74 ,DH74 ,D174,DF 74 
EM75,.DH75 D175 ,DF75 
EM76,DH76,D176,DF 76 
EM77,DH77,D177,DF77 
EM100.,.DH100,D7106,DF 100 
EM101,DK101,DT101,DF 101 
EM102,DH102,DT102,DF 102 
EM103,DH103,DT103,DF 103 
EM104 ,DH104 ,DT104 DF 104 
EM105,DH105,D1T105,DF 105 
EM106,DH106,DT106,DF 106 
—M107,DH107,D1107,DF 107 


£M110,DH110,D1110,DF 110 


SEQ 0022 


K 
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ERROR POINTER TABLE SEQ 0023 
sITEM 111 
002542 043775 066262 070772 .WORD €M111,DH111,D7111,DF111 
002550 070125 ‘os ae 
002552 044052 066262 070772 ° .WORD EM112,DH112,D1112, DF 112 
002560 070125 aes aire 
002562 044130 066262 070772 ° .WORD €M113,DH113,D1113,DF113 
2570 070125 pe 
002572 044206 066262 070772 ~ .WORD €M114,DH114,DT114,DF 114 
002600 070125 aes al 
002602 044265 066623 071044 ~ .WORD £&M115,DH115,D1T115,DF115 
002610 070175 eset 'aie 
002612 044343 066623 071044 ~ .WORD £M116,DH116,DT116,DF 116 
002620 070175 


7 1TEM 117 
002622 044422 066623 071044 ° 


WORD &M117,DH117,D1T117,DF117 
002630 070175 


ITEM 120 
002632 044560 066623 071044 .WORD €M120,DH120,D1T120, DF 120 
002640 070175 Se a 
002642 044716 066623 071044 ~ ~WORD £€M121,DH121,DT121,DF 121 
002650 070175 Se oe 
062652 045053 066623 071044 ~ “WORD €M122,DH122,D1122.DF 122 
002660 070175 Petesge 
002662 045210 066262 070772 ~ ~WORD  €M123,DH123,D1123,DF 123 
002670 070151 es tei 
002672 045266 066262 070772 ~ .WORD  EM124,DH124,D7124,DF 12 
002700 070151 ed 
002702 045345 066262 070772 ~ .WORD EM125,DH125,D1125,DF 125 
002710 070151 ieee ion 
002712 045423 066262 070772 ~ .WORD £M126,DH126,D1126. DF 126 
002720 070151 weds aa 
002722 045502 066623 071044 ~ .WORD  £€M127,DH127.D1127.DF 127 
002730 070221 anand 
002732 045560 066623 071044 ° .WORD &M13C,DH130,DT120,DF 130 
002740 070221 naa 
002742 045637 066623 071044 ~ .WORD  £M131,DH131,D1131,DF 131 
002750 070221 see aie 
002752 045775 066262 070772 ° ~WORD £M132,DH132,D1132.DF 132 
002760 070151 Soon a 
002762 046133 066623 071044 ~ .WORD €M133,DH133,D1133,DF 133 


002770 070221 


L 
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ERROR POINTER TABLE SEQ 0024 

ZITEM 136 

002772 046271 066623 071044 .WORD - EM134,DH134,D1134,DF 136 

003000 070221 east e8 

003002 046426 066262 070772 ~ .WORD £M135,DH135,D1135,DF 135 

003010 070151 sn dom 

003012 046563 066623 071044 ~ .WORD £M136,DH136,D1136,DF 136 

003020 070221 ome a 

003022 046720 066623 0671044 ~ .WORD &M137,DH137,D1137,DF 137 

003030 070175 inom il 

003032 047006 066623 071044 ~ .WORD £M140,DH140,DT140,DF 140 

003040 070175 ies tas 

003042 043775 066623 071044 ~ .WORD €M141,DH141,DT141,DF 141 

003050 070175 ty 

003052 044052 066623 071044 ~~ -WORD  £M142,DH142,DT142,DF 142 

003060 070175 ee tal 

003062 047075 066623 071044 ~ .WORD £M143,DH143,DT143,DF 143 

003070 070175 Tao ales 

003072 047153 066623 071044 ~ .WORD £€M144,DH144,DT144,DF 144 

003100 070175 Seared 

003102 047232 066262 070772 ~° ~WORD £M145,DH145,DT145,DF 145 

003110 070125 las 

003112 047377 066262 070772 ° .WORD £M146,DH146,D1146, DF 146 

003120 070125 ee al 

003122 047544 066262 070772 ° .WORD £M147,DH147,DT147,DF 147 

003130 070125 Se tl 

003132 047710 066262 070772 ~ .WORD £M150,DH150,DT150, DF 150 

003140 070125 ay 

003142 050054 066623 071044 ° .WORD  £€M151,DH151,D1151,DF151 

003150 070221 se ae 

003152 050142 066623 071044 ~ -WORD £M152,DH152,D1152,DF 152 

003160 070221 ceraas 

003162 045210 066623 071044 ° .WORD  £&M153,DH153,D1T153,DF 153 

003170 070221 Hate 

003172 045266 066623 071044 ~ .WORD £M154,DH154,D1154,DF 154 

003200 070221 fei pais 

003202 050231 066623 071044 ~ .WORD £&M155,DH155,DT155,DF 155 

003210 070221 Stee ale 

003212 050307 066623 071044 ~ .WORD £M156,DH156,DT156,DF 156 


003220 070221 


M2 
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ERROR POINTER TABLE SEQ 0025 


sITEM 157 
. WORD 


003222 050366 066262 070772 EM157,DH157,D1T157,DF 157 
003230 


070151 

;1TEM 160 
003232 050533 066623 071044 “WORD £&M160,DH160,DT160,DF 160 
003240 070221 ee 2 
003242 050671 066262 070772 ~° ,WORD £M161,DH161,DT161,DF 161 
003250 070151 anes Gi 
003252 051036 066262 070772 ° -WORD £&M162,DH162,D1162,DF 162 
003260 070151 home an 
003262 051202 066623 071044 ~ .WORD £M163,DH163,D1163,DF163 
003270 070221 seek baie 
003272 051337 066262 070772 ~° .WORD £M164,DH164,DT164,DF 164 
003300 070151 fone eal 
003302 055270 066623 071206 ~ “WORD £&M165,DH165,DT165,DF 165 
003310 070331 en tae 
003312 055354 066623 071206 ° .WORD £&M166,DH166,DT166,DF 166 
003320 070331 sia da 
003322 055437 066623 071206 ~ .WORD £M167,DH167,DT167,DF 167 
003330 070331 ya 
03332 055471 066623 071206 ~ .WORD £M170,DH170,DT170,DF170 
903340 070331 ioe Oe 
003342 055557 066623 071206 ~ .WORD €M171,DH171,DT171,DF 171 
003350 070331 ce oes 2 
003352 055702 066623 071206 ~ SWORD EM172,DH172,DT172,DF 172 
003360 070331 sees 
003362 055767 066623 071206 ° “WORD £€M173,DH173,D1173,DF173 
003370 070331 Pele 
003372 056135 066623 071206 ~ .WORD £M174,DH174,D1174,DF 174 
003400 070331 sige 
003402 056303 066623 071206 ° “WORD EM175,DH175,DT175,DF 175 
003410 070331 ee 
003412 056415 066623 071206 ° “WORD £M176,DH176,DT176,DF 176 
003420 070363 sien: Sane 
003422 056501 066623 071206 ~ .WORD £&M177,DH177,D1177,DF 177 
003430 070363 ng 
003432 056564 066623 071206 ° -WORD £M200,DH200,DT200, DF 200 
003440 070363 


7 ITEM 201 
003442 056616 066623 071206 . WORD 


EM201 ,DH201,DT201 ,DF 201 
003450 070363 re 


N 
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ERROR POINTER TABLE SEQ 0026 


, : ITEM 202 
003452 056705 071206 . WORD 
003460 070363 


003462 057047 071206 
003470 070363 


003472 057211 071206 
003500 070363 


003502 057277 071206 
003510 070363 


003512 057445 071206 
003520 070363 


003522 057613 071316 
003530 070425 


003532 057655 071274 
003540 070415 


003542 057717 071316 
003550 070425 
7 1TEM 212 


003552 060063 071370 -WORD £&M212,DH212,DT212,DF212 
003560 070451 
s ITEM 213 
003562 06C247 (71370 , -WORD €&M213,DH213,DT213,DF213 
003570 070451 
sITEM 214 
. WORD 


093572 060433 071370 
003600 070451 


003602 060617 071370 
003610 070451 


003612 061003 071316 
003620 070425 


EM202 ,DH202 ,DT202,DF 202 


Zs ITEM 203 : 
«WORD €&M203,DH203,DT203,DF 203 


ITEM 204 
. WORD EM204 ,DH204 ,DT204 , DF 204 


3 1TEM 205 
~*~ WORD £&M205,DH205,DT205,DF 205 


7 1TEM 206 
«WORD &M206,DH206,DT206,DF 206 


3 1TEM 207 
° EM207 ,DH207 ,DT207,DF 207 


7 ITEM 210 
«WORD €M210,DH210,DT210,DF 210 


71TEM 211 
«WORD €M211,DH211,DT211,DF 211 


EM214 ,DH214,DT214,DF214 


ITEM 215 
-WORD €M215,DH215,DT215,DF215 


ITEM 216 
«WORD &M216,DH216,DT216,DF 216 


: ITEM 217 
003622 061165 071452 . EM217,DH217,DT217,DF217 
003630 070501 ’ 

003632 061227 071316 
003640 070425 


7 ITEM 220 
WORD EM220,DH220,DT220.,DF 220 


Zz ITEM 221 
003642 061457 071316 -WORD EM221,DH221,DT221,DF 221 
003650 070425 on 


003652 061723 071316 
003660 


EM222 ,DH222 ,DT222,DF 222 
070425 


ZITEM 223 


003662 062154 071316 
003670 070425 


003672 062421 
003700 070425 


EM223,DH223,D1223,DF 223 


ZITEM 224 
. WORD 


071316 EM224 ,DH224 ,DT224 ,DF 224 





68 3 
CKFPBAO FPIIF FLTG PNT MACRO M1111 18-SEP-79 13:43 PAGE 9-8 
ERROR POINTER TABLE SEQ 0027 


7 ITEM 225 
003702 071316 . 
003710 


003712 071379 
003720 0 


phe S4 071370 
0037 


WORD EM225,DH225,D1225,DF 225 


Zs ITEM 226 
«WORD £M226,DH226.D1226,DF 226 


Z1TEM 227 . 
«WORD  €&M227,DH227,DT227,DF 227 


;1TEM 
003732 071370 ° EM230 ,DH230,DT230,DF 230 
003740 — 


003742 071274 . EM231,DH231,D1231,DF 231 
003750 Ten 


003752 071316 . EM232 ,DH232 ,DT232,DF 232 
003760 _— 


003762 063675 071472 . EM233,DH233,D1233,DF 233 
003770 — 


003772 063734 071526 . EM234 ,DH234 ,DT234 ,DF234 
004000 oe 
004002 064020 071546 ~ x EM235 .DH235 ,DT235,DF235 
004010 070534 ae 
004012 064066 071526 ° ‘ EM236,DH236 ,DT236, DF 236 
004020 070525 eee 


004022 064121 071526 . EM237 ,DH237 ,D1237,DF 237 
004030 070525 rome 


004032 071526 ¥ EM240,DH240,DT240 DF 240 
00404 
Z ITEM 
064241 071472 » EM241,DH241,DT241,DF 241 
070510 ; 
7 ITEM 
064 344 071526 ‘ EM242 ,DH242 ,DT242 DF 242 
070525 
ZITEM 243 
. WORD 


064205 
070525 


064400 071472 EM243,DH243,DT243,DF 243 
070510 

ZITEM 244 
064503 071472 . WORD EM244 ,DH244 ,DT244,DF 244 
070510 
064542 071472 
070510 


sITEM 245 
»WORD £M245,DH245,DT245,DF 245 


ITEM 246 
. WORD 


070772 EM246 ,DH246,DT 246, DF 246 


043405 
070151 


ITEM 247 
071560 «WORD =EM247,DH247,DT247,DF 247 


064624 
070540 
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ERROR POINTER TABLE SEQ 0028 


: ITEM 250 
004132 064660 067756 071576 
004140 070540 


004142 064712 067756 071576 
004150 070540 


WORD &M250,DH250,DT250,DF 250 


ITEM 251 
. WORD EM251,DH251,07251,DF 251 


Zs ITEM 252 
WORD 


004152 064745 066352 071610 EM252,DH252,DT252,DF 252 
004160 070546 an ie 
004162 065036 066262 071622 ~ “WORD EM253,DH253,D1253,DF253 
004170 070552 sa ai 
004172 065122 066262 071622 ~ .WORD  EM254,DH254,D1254,DF254 
004200 070552 ian on 
004202 065207 066262 071622 “~ “WORD EM255,DH255,D1255,DF255 


004210 070552 


004212 065275 066262 071622 
004220 070552 


004222 065364 066262 071622 
004230 070552 


004232 065452 066262 071622 
004240 070552 


004242 065541 066262 071622 
004250 070552 


004252 065631 066262 071622 
004260 070552 


004262 065722 066262 071622 
004270 070552 


004272 
004 300 


7; 1TEM 256 
-WORD &M256,DH256,DT256,DF 256 


Z1TEM 257 
«WORD €M257,DH257,DT257,DF 257 


7 ITEM 260 
. EM260 ,DH260,DT260,DF 260 


ITEM 261 
-WORD &M261,DH261,D1261,DF 261 


: ITEM 262 
-WORD EM262,DH262,DT262,DF 262 


7 ITEM 263 
. WORD EM263,DH263,DT263,DF 263 


ITEM 264 
066262 071622 -WORD £M264,DH264 ,DT264 ,DF 264 


066007 
070552 


004302 066074 066262 071622 
004310 070552 


7 ITEM 265 
-WORD £M265,DH265.D1265,DF 265 


7 ITEM 266 
004312 066161 070016 071610 «WORD £M?66,DH266,DT266,DF 266 
004320 070546 
897 
898 
899 -SBTTL ACT11 HOOKS 
SERRE REE REE AEE RRR EERE REE ERR Re 
;HOOKS REQUIRED BY ACT11 
004322 $SVPC=. SAVE PC 
000046 -=46 
000046 edhe — 321)SET LOC.46 TC ADDRESS OF SENDAD IN .S$EOP 
000052 000000 WORD 0 322)SET LOC.52 TO ZERO 
004322 i: RESTORE PC 


* =$SVPC 
900 .SBTTL APT PARAMETER BLOCK 
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APT PARAMETER BLOCK SEQ 0029 


5 RARER AAREARRARARAAEERAAEREERRERAAARAERREERAAREREKREREREAERRER ERED 


:SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 


FERRARA AARAAREKRRARRERAEEARAERAAERARARAERAAREKREARRARAEAR RARER ER EH 


004322 -$X=. =; ;SAVE_CURRENT LOCATION 

000024 2=24 ::SET POWER FAIL TO POINT TO START OF PROGRAM 
000024 000200 200 2 FOR APT START UP 

000044 -=44 ;sPOINT TO APT INDIRECT ADDRESS PNTR. 
000044 004322 SAPTHDR ::POINT TO APT HEADER BLOCK 

004322 .=.$X | ;RESET LOCATION COUNTER 


DBAS EEISIOI IEA IISOISISISIISIOISSIEIIIDIOIIOIOISIOIUIDIOIIOIIOISIDIOISIOIOIUIOIOIOIDIUIDII IIIS 
“Se TUP APT PARAMETER BLOCK AS DEFINED IN THE APT=PDP11 DIAGNOSTIC 
jINTERFACE SPEC. 


004322 THD: 
004322 000000 $HIBTS: .WORD 0 3; TWO HIGH BITS OF 18 BIT MAILBOX ADDR. 
004324 001316 SMBADR: .WORD S$MAIL ;;ADDRESS OF APT MAILBOX (BITS 0-15) 
004326 000010 $STSTM: .WORD 10 ;;RUN TIM OF LONGEST TEST 
004330 000040 SPASTM: .WORD 40 4 ¥ TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 
004332 000000 SUNITM: .WORD 0 TIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT 
901 004334 000052 . WORD SETEND~SHAIL/2 3 LENGTH MAILBOX-E TABLE (WORDS) 
902 
903 004336 START: 
-SBTTL_ INITIALIZE THE COMMON TAGS 
3;CLEAR THE COMMON Leap. (SCMTAG) vik 
004336 012706 001100 MOV A#SCMTAG ,R6 7 sFIRST LOCATION TO BE CLEARED 
004342 005026 CLR (R6)+ ;CLEAR MEMORY LOCATION 
004344 022706 001140 CMP #SWR,R6 ;;DONE? © 
004350 001374 BNE o~6 ;LOOP BACK IF NO 
004352 012706 001100 MOV AMSTACK Chine : ESETUP THE STACK PCINTER 
icmelian A FEW VECTOR 
004356 012737 033436 000020 #S$SCOPE, ae LOTVEC of ive VECTOR FOR SCOPE ROUTINE 
004364 012737 000340 000022 MOV #340, a#IOTVEC+2 ; ik 7 
004372 012737 033716 000030 MOV #SERROR, AMEMTVEC eM VECTOR FOR ERROR ROUTINE 
004400 012737 000340 000032 MOV #340, a#EMTVEC+2 7 LEVE L 7 
004406 012737 035734 000034 MOV WSTRAP QA TRAPVEC : TRAP VECTOR FOR TRAP CALLS 
004414 012737 000340 000036 MOV #340, @#TRAPVEC+2;LEVEL 7 
004422 012737 036020 000024 MOV #SPWRDN, AAPWRVEC ; ;POWER FAILURE VECTOR 
004430 012737 000349 000026 MOV #340, aMPWRVEC+2 eel Be L 7 
004436 016767 C26536 026526 MOV SENDCT. SEOPCT SETUP END-OF-PROGRAM COUNTER 
004444 005067 174632 CLR STIMES >: INITIALIZE NUMBER OF ITERATIONS 
004450 005067 174630 CLR SESCAPE eeCL LEAR THE ESCAPE ON ERROR ADDRESS 
004454 112767 000001 174433 MOVB #1 , SERMAX sALLOW ONE ERROR PER TEST 
: INITIALIZE THE "T-BIT'' TRAP VECTOR. one LOAD LOCATION '‘SRTRN'*, IN 
SETHE “END-OF =PASS'' (SEOP) ROUTINE, WITH A ‘RTI’ OR ‘RIT 
004462 012737 033422 000014 MOV A#SRTRN, @ATBITVEC :3SET "'T'’ BIT VECTOR 10 $RTRN 
004470 012737 900340 000016 MOV #340,a#TBITVEC+2 ::LEVEL 7 
004476 012767 000002 026716 MOV #RT1,$RTRN det SRTRN TO A RTI 
004504 012737 004532 000010 MOV #65$,QMRESVEC ;;TRY TO DO A RTT 
004512 005046 CLR ~ (SP) 2s DUMMY PS 
004514 012746 004522 MOV #64$,-(SP) ; PC 
004520 000006 RTT STRY THE R 
004522 012767 000006 026672 64$: MOV #RTT,SRTRN SIRTT IS LEGAL--SET SRTRN TO A RTT 
004530 000402 BR 66$ 
004532 062706 000010 65$: ADD #10,SP T ILLEGAL=-CLEAN OFF THE STACK 
004536 012737 000012 000010 66$: MOV #RESVEC+2, amesvit™ | TRESTORE TRAP CATCHER 
004544 005067 026660 CLR $TBIT CLEAR ‘'T'' BIT SWITCH 
004550 012767 004550 174330 MOV #.,SLPADR S DINITIALIZE THE LOOP ADDRESS FOR SCOPE 
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INITIALIZE THE COMMON TAGS SEQ 0030 
004556 012767 004556 174324 MOV ,SLPERR ;SETUP THE yt LOOP og we 
:zSIZE FOR A A HARD DWARE SWITCH REGISTER. IF NOT FOUND OR IT IS 
7;EQUAL TO A *=1°', SETUP FOR A SOFTWARE SWITCH REGISTER. 
004564 013746 000004 MOV @#ERRVEC ,- (SP) oo ERROR VECTOR 
004570 012737 004624 000004 MOV #67$ ,AAERRVEC ;SET UP ERROR VECTOR 
004576 012767 177570 174334 MOV #DSWR, SWR ; SETUP FOR A HARDWARE SWICH REGISTER 
004606 012767 177570 174330 MOV #DDISP,DISPLAY ::AND A HARDWARE DISPLAY REGISTER 
004612 022777 177777 174320 CMP #=1, aSWR ze TRY TO REFERENCE HARDWARE SWR 
004620 001012 BNE £98" > ;BRANCH IF NO TIMEOUT TRAP OCCURRED 
a3 THE HARDWARE SWR IS NOT = -1 
004622 000403 BR 68$ [BRANCH IF NO TIMEOUT 
004624 012716 004632 67$: MOV #68$, (SP) SISET UP FOR TRAP RETURN 
004630 000002 RT] 
004632 012767 000176 174300 688: MOV MSWREG, SWR 7z;POINT TO SOFTWARE SWR 
004640 012767 000174 174274 MOV #DISPREG DISPLAY 
004646 012637 000004 69$: MOV (SP)+, @#ERRVEC 2 ¢RESTORE ERROR VECTOR 
004652 005067 174446 CLR $PASS ;CLEAR PASS COUNT 
004656 132767 000200 174453 BITB MAPTSIZE ,SENVM ie TEST USER SIZE UNDER APT 
004664 001403 BEQ 70$ YES,USE NON-APT SWITCH 
opeeee 012767 001340 174244 708 MOV HSSWREG, SWR > INO, USE APT SWITCH REGISTER 
904 -SBTTL TYPE PROGRAM NAME 
72 TYPE THE NAME OF THE PROGRAM IF etait PASS 
004674 005227 177777 INC a] :gFIRST TIME? 
004700 001047 BNE qi 1$ sé NCH IF NO 
004702 022737 033356 00042 CMP MSENDAD , 0442 33ACT=-11? 
004710 001443 BEQ 71$ is IF YES 
004712 104401 004760 TYPE .72$ TYPE ASCIZ STRING 
-S8TTL i VALUE FOR SOFTWARE SWITCH REGISTER 
004716 005737 000042 a#42 7 7ARE WE RUNNING UNDER XXDP/ACT? 
004722 001012 BNE 73$ 7 BRANCH IF YES 
004724 126727 174406 000001 CMPB SENV,A1 2 ¢ARE WE RUNNING UNDER APT? 
004732 001406 BEQ 73$ ;BRANCH IF YES 
0046734 026727 174200 000176 CMP SWR ,ASWREG ; 3 SOF TWARE SWITCH REG SELECTED? 
004742 001005 BNE 74$ CH IF NO 
004744 104405 GTSWR T:GET SOFT-SWR SETTINGS 
004746 000403 BR 74$ 
oft 112767 000001 174156 can MOVB #1, $AUTOB 72SET AUTO-MODE INDICATOR 
004756 000420 BR 71$ ;GET OVER THE ASCIZ 
3372$: .ASCIZ <CRLF>*CKFPBAO FPITE FLTG PNT PRT B*<CRLF> 
005020 71$: 
905 
906 005020 LOOP: 
907 
908 
919 PLEA EERE EER ERE REE ERA RE REE RR Re 


i*TEST 1 ROUND\ TRUNK TEST 


THIS IS A TEST OF THE ROUND\TRUNK 

FLOWS. IN PARTICULAR TWO THINGS ARE TESTED: 
FIRST A CONDITION IN WHICH ROUNDING 

>* RESULTS IN THE NEED FOR RENORMALIZATION, AND 
:* SECOND THE PSwW CONDITION CODES N AND 

:* 2 BIT COMMBINATIONS 


LF RAAAAAAAARAAAAAEAARERAREREAAARAAERAEAAAREAARAARORAARAKRAKAE RARER 


en ee ee 
a ee 





CKFPBAO FPI1F FLTG PNT PRT B 
1 ROUND\ TRUNK TEST 


$@ 
8 


9 

923 005022 
924 005024 
9 0 


R 


003200 


005052 
006602 


006612 


Oo 

ia) 

i | 

g 
tatatotatetas 
EREGSLS 
Oo--0-00-0— 
BS28asuUs9 


934 064 

935 005070 012702 000004 
936 005074 022021 

937 005076 001415 

938 0051 00 


943 005120 000137 005612 
005660 


os 005140 000137 005726 


9 
955 005144 

005144 104413 
a 005146 012704 043200 
958 005152 170104 
959 005154 012737 005202 
960 005162 012737 006522 
961 005170 012700 006652 
962 005174 
963 005176 012700 006662 
964 005 

2700 006572 

968 005214 006642 
969 005220 012702 000004 


1402 
972 005230 000137 005774 
973 005234 077205 





MACRO M1111 


TST1: 


HH1: 


001236 


HH2: 


HH3: 


HH4: 


HHS: 
HH6: 


F 
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SCOPE 
;ROUND AND NORMALIZE TEST 


LPERR 7SET UP 
MOV #3200,R4 
LDFPS RG 

V MHH2 , AAS TMP2 
MOV #HHPO ,RO 
LDD (RO) ,ACO 

#HHP 1 

ADDD (RO) ,ACO 
STFPS RS 

V #HHDATO,RO 


MOV MHHP2 ,R1 


MOV #4 R2 
CMP (RO)+,(R1)+ 
BEQ HH6 


MOV #HHDATO ,RO 
MOV #HHP3,R1 


MOV #4 ,R2 

CMP (RQ)+,(R1)+ 
BEQ HH5 

JMP @AHHERO 


HH 
JMP @AHHE ROO 


;THIS IS A TEST OF THE ABILITY 


; OF 


001236 
000244 


HH8: 


HH9: 


HH10: 


NORMALIZE TO PRODUCE A ZERO EXP. AND 
;OF THE R\T ALGORITHM TO PORPERLY SET THE FPS 


HH7: 


LPERR 3SET UP 
MOV #043200 ,R4 


LDFPS RG 
MOV #HHB , aS TMP2 
MOV #HHTRAP , a#F PVE CT 
MOV #HHPS ,RO 


MOV 
CMP (Rs, (R1)+ 
BEQ HH10 


Ist LOOP ON a? — 


SET FIU, FIV, 


SET ACO OPERAND 


sF SPC 
; TEST INSTRUCTION 
T FPS 


;GET THE RESULT 
:1S IT CORRECT 


:DID FLOW GO 
FROM STATE 663 
TO 313_INSTEAD 


SOF TO 353 


THE LOOP GN ERROR ADDRESS. 
SET FIU,FIV,AND FD 


FPS CORRECT? 


IN CASE UNDERFLOW 


; TRAP OCCURS 


SET ACO OPERAND 


F SPC 
TEST, ree 
[GET THE RESULT 


31S IT CORRECT 


SEQ 0031 


G 
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ROUND\ TRUNK TEST SEQ 0032 
974 005236 052704 100004 BIS #100004 ,R4 zFPS CORRECT? 
975 005242 020405 CMP R4,R5 
976 005244 001402 BEQ HH11 
977 005246 000137 006042 JMP @4HHER 
978 ;THIS IS A TEST OF THE R\T ALGORITHM'S 
979 ABILITY TO SET BOTH N AND Z ON A = O RESULT. 
980 005252 HH11: 
005252 104413 LPERR ;SET UP '< LOOP ON ag ADDRESS. 
981 SET FIV, FIV, FD 
982 005254 012704 043200 MOV #043200,R4 
983 005260 170104 LDFPS R&S 
984 005262 012737 005302 001236 MOV #HH12,a#$TMP2 
985 005270 012700 006702 MOV #HHPSB ,RO ;SET ACO OPERAND 
986 005274 172410 LDD (RO) ,ACO 
987 005276 012700 006712 MOV RO F SPC 
988 005302 172010 HH12: ADDD (RO) ,ACO ZTEST, INSTRUCTION 
989 005304 170205 STFPS = R5 PS 
990 005306 012700 006572 MOV #HHDATO , RO ‘GET THE RESULT 
991 005312 174010 STD ACO, (RO) 
992 005314 012701 006672 MOV MHHP7 ,R1 31S IT CORRECT 
993 005320 012702 000004 MOV #4 ,R2 
994 005324 022021 HH13: CMP (RO)+,(R1)+ 
995 005326 001415 BEQ HH16 
996 005330 012700 006572 MOV #HHDATO,RO 
997 005334 012701 006642 MOV MHHPS ,R1 
998 005340 012702 000004 MOV #4 ,R2 
999 005344 022021 HH14: CMP (RO)+,(R1)+ 
005346 001402 BEQ HH15 
1001 065350 000137 006110 JMP @AHHERS 
1002 005354 077205 HH15: SOB R2,HH14 
1003 005356 000137 006156 JMP @AHHERS 
1004 005362 077220 HH16: SOB R2,HH13 
1005 005364 052704 100014 BIS #100014 ,R4 FPS CORRECT? 
1006 005370 020405 CMP R4,R5 
1007 005372 001402 BEQ HH17 
1008 005374 000137 006224 Coad 
1 TEST THAT CC ARE CLEARED BY R\T 
1010 005400 
005400 104413 LPERR SET UP THE LOOP ON ERROR +) tee 
1011 005402 012704 000200 MOV #00200 ,R4 SET FIV, FIV, AND F 
1012 005406 170104 LDFPS R4 
1013 005410 012737 005436 001236 MOV #HH18 , a#STMP2 
1014 005416 012737 036660 000244 MOV #FPSPUR , @#FPVECT 
1015 005424 012700 006702 MOV #HHPB , RO SET ACO OPERAND 
1016 005430 172410 LDD (RO) ,ACO 
1017 005432 012700 006702 MOV MHHPB , RO F SPC 
1018 005436 172010 HH18: ADDD (RO) ,ACO :TEST. INSTRUCT ION 
1019 005440 170205 STFPS = R5 GET FPS 
1020 005442 012700 006572 MOV #HHDATO,RO :GET THE RESULT 
1021 005446 174010 STD ACO, (RO) 
1022 005450 012701 006722 MOV #HHP10,R1 :1S IT CORRECT 
1023 005454 012702 000004 MOV #4 ,R2 
1024 005460 022021 HH19: CMP (ROQ)+,(R1)+ 
1025 005462 001402 BEQ HH20 
1026 005464 000137 006272 JMP @AHHER7 
1027 005470 077205 HH20: SOB 


R2,HH19 
1028 905472 052704 000000 BIS #00000,R4 sFPS CORRECT? 








7 ee 
ree FP11F FLTG PNT PRT 6 MACRO M1111 18-SEP-79 13:43 PAGE 9-14 | 
ROUND\ TRUNK TEST SEQ 0033 


1029 005476 020405 CMP R4,R5 
1030 005500 001402 BEQ HH? 1 
1931 005502 000137 006340 JMP @AHHERS 
1032 ; TEST THAT N IS SET BY R\T 
1033 005506 HH21: | 
005506 104413 LPERR SET UP THE LOOP ON ERROR ADDRESS. 
1034 005510 012704 003200 MOV #7200,R4 sSET FIV, FIV, AND FD | 
1035 005514 170104 LDFPS R4 
012737 005536 001236 MOV MHH22 ,aYSTMPC 
1037 005524 012700 006652 MOV A#HHPS ,RO :SET ACO OPERAND 
1038 005530 172410 LDD (RO) ,ACO 
1039 005532 012700 006652 MOV #HHPS ,R FSPC 
1040 005536 172010 HH22:  ADDD (kO) ,ACO ZEST INSTRUCTION 
1041 005540 170205 STFPS RS GET PS 
1042 005542 012700 006572 MOV #HHDATO,RO GET Te RESULT 
1043 005546 174010 STD ACO, (RO) 
1044 005550 012701 006732 MOV #HHP11,R1 zI1S IT CORRECT 
1045 005554 012702 000004 MOV #4 ,R2 
1046 005560 022021 HH23: CMP (RO) +,(R1)+ 
1047 005562 001402 BEQ HH24 
1048 005564 000137 006406 JMpP @AHHERI 
1049 005570 077205 HH24: SOB R2,HH23 
1050 005572 052704 000010 BIS #10,R4 
1051 005576 020405 CMP R4,R5 sFPS CORRECi? 
1052 005600 001402 BEQ HH25 
1053 005602 000137 006454 JMP @AHHER10 
1054 005606 000157 006742 HH25 JMP @AHHDONE 
1055 005612 HHERO 
$612 010537 001252 MOV RS, a4$TMP10 
005616 010437 001254 MOV R4,a4STMP11 
005622 012737 006612 001240 MOV #HHP 1, aS TMP 3 
005630 012737 006602 001242 MOV #HHPO , AAS TMPS 
005636 012737 006572 001244 MOV #HHDATO, a4STMPS 
005644 012737 006622 001246 MOV #HHP2 , AST MP6 
005652 104207 1$: ERROR +207 
005654 000137 006742 JMP QAHHDONE 
1056 005660 HHER? : 
005660 010537 001252 MOV R5,a4$STMP10 
005664 010437 001254 MOV R4,a4STMP11 
005670 012737 006612 001240 MOV #HHP 1 , aS TMP 3 
005676 012737 006602 001242 MOV #HHPO , AS TMPS 
005704 012737 006572 001244 MOV #HHDATO, a#$TMPS 
005712 012737 (06622 001246 MOV MHHP 2 , BAS TMP6 
005720 104211 1$: ERROR +211 
005722 000137 006742 J DONE 
1057 005726 HHEROO: 
005726 010537 001252 MOV R5,a4$TMP10 
005732 010437 001254 MOV R4,a4$STMP11 
005736 012737 006612 001240 MOV MHHP 1, AAS TMPS 
005744 012737 2 001242 MOV #HHPO , AAS TMPS 
005752 012737 006572 001244 MOV M#HHDATO , a# $TMPS 
005760 012737 006622 001246 MOV #HHP 2 , BAS TMP6 
005766 104210 1$: ERROR +210 
005770 000137 006742 JMP @AHHDONE 
1058 005774 ’ HHER2 : 
005774 010537 001252 MOV R5,.a4$TMP10 
006000 010437 001254 MOV R4,a4$TMP11 
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006004 012737 006662 001240 MOV MHHP6 , AAS TMPS 
006012 012737 006652 001242 MOV MHHPS , AAS TMPS 
006020 012737 006572 001244 MOV AHHDATO, aS TMPS 
006026 012737 006642 001246 MOV MHHPS , AAS TMP6 
006034 104207 1$: ERROR +207 
0060 000137 006742 JMP @AHHDONE 
1059 006042 HHER3: 
006042 010537 001252 MOV RS ,a4#$STMP10 
006046 010437 001254 MOV R4,a4STMP11 
006052 012737 006662 001240 MOV AHHHPS , AAS TMPS 
006060 012737 2 001242 MOV #HHPS TMP4 
012737 006572 001244 MOV #HHDATO, a&#$STMPS 
006074 012737 001246 MHHPS , AAS TMPE 
006102 104214 1$: ERPOR +214 
006104 000137 006742 JMP QAHHDONE 
1060 006110 HHERG : 
006110 010537 001252 MOV RS, a4$STMP10 
006114 04 001254 MOV R4,a4STMP11 
006120 012737 006712 001240 MOV a4STMP3 
006126 012737 006702 001242 MOV M#HHPB , AAS TMPS 
012737 006572 001244 MOV #HHDATO, a#$TMPS 
006142 012737 006672 001246 MOV #HHP7 , AAS TMP6 
006150 104207 1$: ERROR +207 
006152 000137 006742 JMP @A4HHDONE 
1061 006156 HHERS : 
006156 010537 001252 MOV RS, a@4$TMP10 
006162 010437 001254 MOV R4,a4STMP11 
006166 012737 006712 001240 MOV MHHHPS , AS TMP 3 
006174 012737 006702 001242 MOV M#HHPS , AAS TMPS 
006202 012737 006572 001244 MOV #HHDATO, a $TMPS 
006210 012737 006672 001246 MOV AHHP7 , AAS TMPC 
006216 104216 1$: ERROR +216 
006220 000137 006742 JMP @AHHDONE 
1062 006224 HHER6: 
006224 010537 001252 MOV RS, a4$TMP10 
010437 001254 MOV R4,a4STMP11 
006234 012737 006712 001240 MOV #HHPS , AAS TMP 3 
006242 612737 006702 001242 MOV #HHPS , AAS TMPS 


#HHDATO, a#$TMP5 
7, a4STMP6 





001244 #HHDATO, aS TMPS 





J 
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ROUND\ TRUNK TEST SEQ 0035 
006372 012737 006722 001246 V #HHP 10, a4 STMPG 
006400 104212 : ERROR +212 
006402 000137 006742 JMP @AHHDONE 
1065 006406 HHERSY: 
006406 010537 001252 MOV RS, a4$TMP10 
006412 010437 001254 MOV R4,a4$STMP11 
006416 012737 006652 001240 MOV MHHPS , AAS TMPS 
006424 012737 006652 001242 MOV . TMP4 
012737 006572 001244 MOV #HHDATO, a&#$TMPS 
006440 012737 006732 001246 #HHP 11, av$ 
006446 10420 1$ ERROR +207 
006450 000137 006742 J @4HHDONE 
1066 006454 HHER10: 
006454 010537 001252 MOV RS, a4$TMP10 
0064 04 001254 MOV R4,a4STMP11 
012737 52 001240 MOV MHHPS , BS TMPS 
006472 012737 52 001242 MOV #HHPS , aS TMPS 
006500 012737 006572 001244 MOV #HHDATO,a&#$TMPS 
006506 012737 006732 9001246 MOV MHHP 11, a#STMP6 
006514 104213 1$: ERROR +213 
006516 000137 006742 JMP @AHHDONE 
1067 006522 013703 001236 HHTRAP: MOV A4STMP2,R3 zWAS THE TRAP TO 244 
1068 006526 062703 000002 ADD #2,R3 :0N THE INSTRUCTION 
1069 006532 020316 CMP R3, (SP) ;BEING TESTED? 
1070 006534 001402 BEQ 1$ 
1071 006536 000137 036660 JMP a@4F PSPUR 
1072 006542 011637 001236 1$: MOV (SP) ,a#$STMP2 sFAILURE OF FPS INTERRUPT 
1073 DISABLE BIT (FID=1) 
1074 006546 022626 CMP (SP)+, (SP) + ;TO INHIBIT TRAP. 
1075 006550 170201 STFPS RI 
1076 006552 010137 001240 MOV R1,a4$TMP3 
1077 006556 170301 STST R1 
1078 006560 010137 001242 MOV R1,a4STMP4 
1079 006564 104217 2$: ERROR +217 
1080 006566 000137 006742 JMP @AHHDONE 
1081 006572 000000 HHDATO: 0 
1 006574 000000 0 
1083 006576 000000 0 
1084 006600 000000 0 
1085 006602 000452 HHPO: 452 
1086 006604 125252 125252 
1087 006606 125252 125252 
1088 006610 125253 125253 
1089 006612 HHP 1 252 
1090 006614 125252 125252 
1091 006616 125252 125252 
1092 006620 125252 125252 
1093 006622 000600 HHP2: 600 sHHPO + HHP1 WITH 
1094 006624 000000 0 :PROPER NORMAL! ZATION 
1095 006626 000000 0 
1096 006630 000000 0 
1097 006632 000400 HHP 3 400 ;HHPO + HHP1 WITH 
1098 006634 0 :BAD NORMALIZATION 
1099 006636 000000 0 
1100 006640 000000 0 
1101 006642 000000 HHPS 0 
1102 006644 000000 0 


at anh and oh el ald a et cl eel cl eel ed lh el el ell il el el eel cals el el el al el el el ely 
el aed atl ah ch ca ol cl el ed cl a ee al wal cl a a cl cl ce ce ce ee ee ca ct ec lh 
WWW RMNNNNINNN 3 2 2 es ee ee ee OQCoeo 


006652 100200 HHP5 : 

066662 000300 HHP6 : 

006664 

006670 

006672 100000 HHP7 : 

006702 000200 HHPB : 
704 

006712 100300 HHP : 
20 

grees 000400 HHP 10: 


006730 
006732 100400 HHP 11 : 


HHDONE : 


K 
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00200 

00 

00000 ;HHP7 = HHP8& + HHP9 
3 = HHPS + HHP6 


00300 


S 


;HHP10 = HHP8 + HHP8 


HHP5 + HHP5 


wleleR ielele? tel elo) ate wee, Yai ee OO 
So 


RSE TUP :G0 INITIALIZE THE FPS AND STACK; AND 
EE IF THE USER HAS EXPRESSED 

ZTHE DESIRE TO CHANGE THE SOF TWARE 
[VIRTUAL CONSOLE SWITCH REGISTER (HAS 


; THE USER TYPED CONTROL G?). 


'WEhARRRRRAARSSASSSASLALASSAERE REL E SER RSE RRR RRR RRR RRR RRR RRS RAR RSS SS S| 


:#TEST 2 


OVER\UNDER TEST 


 eTHIS IS A PARTIAL TEST OF THE OVER\UNDER 


: *FLOWS. 


ONE OVERFLOW AND TWO UNDERF LOW 


: sCONDI TIONS ARE oes THE REMA 
FLOW COND. 


; *UNDER 


INING 
AND THE REMAINING OVERFLOW 


;*COND. WILL BE CHECKED LATER USING THE 
3 *XXX INSTRUCTION. HERE EACH CONDITION TESTED 
:*I1S CHECKED BOTH WITH TRAPS ENABLED 


:*#(FIU=1 OR FI 


V=1) AND ALSO WITH TRAPS 


; *DISABLED (FIU=0 OR FIV=0). 


Py 
WOR ARARARARASLASZALELERERERSR EER RRS RRR RRR RRR RRR RRR RRR RAR RRR RAR ASD ES A 


006744 000004 TS12: 


006746 
006746 104413 


SCOPE 


gies! OVERFLOW CONDITION WITH TRAP DISABLER Flv=0 


LPERR SET UP THE LOOP ON ERROR ADDRESS. 


SEQ 0036 


ee ee ee ee ee ee ee LL Le 

me ee ee ee ed aed od wd wd ee ee ee ee ee ee LL Le 
FLAVLSSBISALA 

UEWN $0 O@NAUEW 

NS 

vw 

oO 


888 
Was 
RSA 


NNNN 
ad od od od 
S¥SR 


BELKIRATSLSSELKALATLSISIN KARAVISSELE 
S g 
& 


SSSSSSSSSSSSSSsssss 


SN NN NN NN 
—_ —) ed _ — od 
SHITSSKSES 


SraRs 
SS 
Ree 


ad a a ceed cath eae ed et el a eh ed ed ee co cl ed cd ed ce a cl ed cd ed ld ce ed 
NNN 
N 
— 
& 


MVYV 
&S 
8s 
wn 
Na 
oon 


KFPBAO FPI1F FLTG PNT PRT B 
OVER\UNDER TEST 


000200 
007004 
010036 
011610 
011610 
011540 
011620 
000004 


010134 
000006 


010202 


001200 
007112 
007130 
011610 


011610 
011540 


010250 
001236 
000002 


036660 
001236 


011540 
011620 
000004 
010316 


100006 


010366 


L 
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001236 
000244 


001236 
000244 


GG6: 


GG7: 


1$: 


GG8: 


GG9: 


#200,Ré ZCLEAR FIU, FIV, AND SET FD 

#GG2, a#$TMP2 

#GGERO, aa PVECT 

#GGP5 RO :SET ACO OPERAND 
(RO) ACO 

#GGP5 RO F SRC 

(RO) ,ACO “TEST INSTRUCTION 
5 ;GET FPS 

#GGDATO,RO “GET THE RESULT 

ACO, (RO) 

#GGP6,R1 zI1S IT CORRECT 

#4 R2 

(RO)+, (R1)+ 

GG4 

@4GGER1 

R2,GG3 

#6 RS ZFPS CORRECT? 

RG ARS 


JMP @4GGER2 
; TEST Neues WITH TRAPS ENABLED 
. Vy = 


:SET UP THE LOOP ON ERROR ADDRESS. 


+ cae ;CLEAR FIU, SET FIV, AND FD 


#GG6 ,@4STMP2 


#GG7 , @4F PVECT 


#GGP5 RO :SET ACO OPERAND 


st SPC 
: TEST INSTRUCTION 
#GGDATO,RO 

(RO) 


aff PSPUR 
(SP) ,-a#STMP2 
(SP)+, (SP)+ 
#GGDATO,RO 
ACO, (RO) 
#GGP6,R1 

#4 R2 
(RO)+,(R1)+ 
GG9 

@AGGERS 
R2,GG8 
#100006 ,R4 
R4,R5 


P °] 
Ww 


GET THE RESULT 
:1S IT CORRECT 


“+4 FPS CORRECT? 
@A4GGER6 


SEQ 0037 


M 
CKFPBAO FP11F FLTG PNT PRT B MACRO M1111 18-SEP-79 13:43 PAGE 9-19 
T2 OVER\UNDER TEST SEQ 0038 


09 007224 012704 000010 
170305 
0 


#10,R4 


R5 
CMP R4,R5 
BEQ GG10 


JMP @4GGERS 
CHECK UNDER FLOW CONDITION WITH 
toe. DISABLED (FIU = 0) 


1$: MOV 
; CHECK FEC 
STST 


010320 


SET UP THE LOOP ON ERROR ADDRESS. 
;SET FIU, F FD 


LOOP 
IV, AND 


OOo NOUSWN—O 


000200 MOV #0200,R4 
007300 001236 MOV #GG11,a4$TMP2 

010434 000244 #GGER7, a#F PVECT 
011560 GGP2,RO :SET ACO OPERAND 


011570 ‘ 


VIS 


;TEST INSTRUCTION 
;GET FPS 


011540 MO #GGDATO,RO ;GET THE RESULT 
ACO, (RO) 

011620 #GGP6,R1 21S IT CORRECT 

000004 


#4 ,R2 
(RO) +, (R1)+ 
GG13 
010532 
000004 , 1S #4 RG :FPS CORRECT? 


G 
010600 JMP @4GGERY 
7 CHECK UNDERFLOW CONDITION WITH 
; TRAP ENABLED (FIU = 1) 


1240 
1241 007350 

007350 :SET UP THE LOOP ON ERROR ADDRESS. 
1242 007352 9364 002200 MOV + eae :SET FIU, FIV, AND FD 


007406 001236 MOV #GG15 .a#STMP2 
007424 000244 #GG16,a4F PVECT 
011560 GGP2,RO + OPERAND 


011570 ‘ 
: TEST INSTRUCTION 


011540 


010646 
001236 
000002 


1$ 
G56660 a4F PSPUR 
1236 : (SP) ,a#STMP2 
CMP (SP)+, (SP)+ 
1261 007452 R GET FPS 
1262 007454 012700 011540 MO #GGDATO,RO GET THE RESULT 
1263 007460 174010 ACO, (RO? 





CKFPBAO FP11F FLTG PNT PRT B 
T2 OVER\UNDER TEST 


012701 011630 
000004 


GES 
SSSss 
REARS 

RNS 

o 
~m 
Nm 
2 
™ 
— 


ao 
Ye) 
“N 
vi 
on 
~ 
oO 
N 
N 
~M 
So 
wi 


010714 
7504 052704 100000 


& 
88s 
oOo 


73 007514 000137 010762 
5 007520 012704 000012 


MNMONNPPPNPfrVyVNT 
o —_ 
N“N 
wi 
—_ 
o 
o 
z 
oO 
uw 


79 007 
44 007532 000177 001272 


012704 000200 
012737 007574 
007554 012737 011076 
007562 012700 011560 
007566 


011640 


MyM 
ak 
8 
Lee 
ERE 
ARO 
— 
3 
— 
R 


SBBIPIVIBVISSSS 
S 
$ 


~ 


a a a as a a te a a ot a hh hh ho 2 oS 
in’) 


012700 011540 
007606 012701 011620 
000004 


011174 
2704 000004 


Fass 
Sess 
ESRERN 
g 
S32 
3 


011242 


MACRO M1111 


GG17: 


GG18: 


2$: 


1$: MOV 
s CHECK FEC 
STST 


N 
18-SEP-79 13:43 PAGE 9-20 


MOV #GGP7,R1 
#4 ,R2 
CMP (RO) +, (R1)+ 
GG18 
JMP @4GGER11 
R2,GG17 
BIS #100000,R4 
MP R4,R5 


2$ 
JMP @4GGER12 


#12,R4 
R5 
CMP R4,R5 
7 GG19 
@GGER13 


; CHECK UNDERF LOW CONDITION WITH 
iDISABLED (FIU = Q) 


001236 4 
000244 


GG20: 


GG21: 


GG2e: 


+ aoe 
#GG20 ,a#$TMP2 


MOV ee 


5 
MOV #GGDATO,RO 
STD ACO, (RO) 
MOV #GGP6,R1 


MO #4 ,R2 
CMP (RO)+,(R1)+ 
B GG 


BIS 4, 
CMP R4,R5 
BEQ GG 


23 
JMP @AGGER16 


21S IT CORRECT 


FPS CORRECT? 


TRAPS 


;SET UP THE LOOP ay — ADDRESS. 


SET FIU, FIV, 


;SET ACO OPERAND 


F SPC 

:TEST  ~ cian 
7GET THE RESULT 
:IS IT CORRECT 


FPS CORRECT? 


SEQ 0039 


ore FPIIF FLTG PNT PRT 6B MACRO M1111 18=SEP=79 13:43 PAGE 10 
T2 OVER\UNDER TEST SEQ 0040 


1306 7; CHECK UNDERFLOW CONDITION WITH TRAP 


CKFPBAO FP11F FLTG PNT PRT B 
T2 OVER\UNDER TEST 


R 
K 
— 
Ww 


Y 002200 
37 007702 
37 007720 
00 011560 


00 011640 


Ss 
_- O O00 Oo 
So 
— 
oO 


Bait adae 
WONAUSWN—O 
“N 
g 
o 


007706 012700 011540 


1 007714 000137 011310 
2 007720 013700 001236 
062 000002 


00 
4 007730 020016 


WWWNWWWWNWNAANANWANAAG 


iia 
g 
y 
x 
g 
R 


007734 000137 036660 
7 007740 011637 001236 


SSB 
888 
NNN 
NNN 
wns 
ROO 
— — 
Ra 
S338 
ooul 


011540 


32 007756 012701 011650 
33 007762 012702 000004 


Ww 
wi 
s 
NN 
of 
8 
rs 
Oo 
a 


011356 
052704 100004 


KS 
BURAK 8 
23888 
E55 
an 
3888 
N Nm 
Swow 
wm = 


SOVWVONAUSWN-OO 
So 
— 
Oo 
3 
Oo 
Ww 


000167 001456 
012704 000012 


22 Sos 
Ss 8&8 
S 238 


oo 
—t 
SS 
MMP 
foo a) 
3 

on 

N 


001372 
000137 011660 
013701 001236 

000002 


WOU MI IIIS ST ToS 
WMH oO”O 
esse 9 
88338 8 
Sse x 
g 
Nm 
8 


FERRE 
8 


036660 


WWAWWAIAAANWG 


AAAI 
OONAWN 


020127 000010 
72 


RES 
sssssssss 


” 012700 911540 
76 012737 011610 


me ed od + 8 2 ot ot SS _—_ 


s 


MACRO M1111 


GG23: 


001236 
000244 


GG24: 


GG25: 


C 4 
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ENABLED (FIU = 1) 


LPERR ;SET UP THE LOOP ON 
MOV #2200 ,R4 ;SET FIU, FIV, AND 
LDFPS R4 


MOV #GG24 , QASTMP2 
MOV #GG25 ,@#FPVECT 
RO SET ACO OPERAND 


SF SRC 
; TEST INSTRUCTION 


ADD #2 

CMP RO, (SP) 

BEQ 1$ 

JMP a4F PSPUR 

MOV (SP) ,a#$TMP2 

CMP (SP)+,(SP)+ 

STFPS = R5 GET FPS 

MOV #GGDATO,RO GET THE RESULT 
STD ACO, (RO) 

MOV #GGP9,R1 :1S IT CORRECT 
MOV #4 ,R2 

CMP (RO)+,(R1)+ 

BEQ GG27 


JMP @4GGER18 
SOB R2,GG26 
BIS hy + gc 


C R4,R5 FPS CORRECT? 
BEQ 1$ 

JMP GGER20 

MOV #12,R4 

CHECK FEC 

STST R5 

CMP R4,R5 

BEQ 


GG28 
JMP GGER19 
JMP @4GGDONE 


GGERO: MOV aFSTMP2,R1 
A R1 


001240 


DD He, 

CMP R1, (SP) 
BEQ 10$ 

JMP @4F PSPUR 
STST R1 

CMP R1,410 
BNE $ 


5 
CMP (SP)+,(SP)+ 
MOV #GGDATO,RO 
STD ACO, (RO) 
MOV #GGP5 , a#$TMP3 


ERROR ADDRESS. 
FD 


SEQ 0041 


on FP11F FLTG PNT PRT B 


ey 


ee 


1368 
1369 


1370 
1371 
1372 


1373 


1374 
1375 


OVER\UNDER TEST 
010104 012737 


010244 000137 
010250 


010316 000706 
010320 
010 


2 
-COoOoC00o°o 
ah ab ad aah od od 


2 
Ww 
Lom) 
82 
= 
MN 
NN 
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001242 


001246 


001240 


001246 


001246 


001246 


1$: 


GGER6: 


D 4 
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#GGP5 , AAS TMP 
#GGDATO, a#STMPS 
#GGP6 , AAS TMP6 
+220 


@4GGDONE 


RS, a#STMP10 


+ 
@4GGDONE 


R5,@4$STMP10 


#GGDATO, a#$TMPS 
#GGP6 , aA STMPC 


+232 
@4GGDONE 


R5,a4$TMP10 


#GGDATO, a#$TMPS 
“oe , @ASTMP6 


+22 
@#GGDONE 
GGER1 


RS ,@#$TMP10 


G 
#GGDATO, a#STMPS 
#GGP6, aS TMP6 


+226 


@4GGDONE 


R5,@4$TMP10 


#GGDATO, a#$TMPS 

#GGP6, aS TMPE 
+227 

@4GGDONE 


SEQ 0042 





E 4 | 
CKFPBAO FP11F FLTG PNT PRT 6 MACRO M1111 18=SEP=79 13:43 PAGE 11-2 
T2 OVER\UNDER TEST SEQ 0043 

1376 

1377 010434 013701 001236 GGER7?: MOV @ASTMP2,R1 

1378 010440 062701 000002 ADD #2,R1 

1379 010444 020116 CMP R1, (SP) 

1380 010446 001402 BEQ 10$ 

1381 010450 137 036660 5$: JMP a4F PSPUR 

1382 010454 10$: 

1383 010454 170301 STST R1 

1384 010456 020127 000012 CMP R1,A12 

1385 010462 1372 BNE 5$ 

1386 010464 022626 CMP (SP)+, (SP)+ 

1387 0104 12700 011540 MOV #GGDATO,RO 

1388 010472 174010 STD ACO, (RO) 

1389 010474 012737 011570 001240 MOV #GGP3 , a#STMP3 
010502 012737 011560 001242 MOV #GGP2 , aS TMPS 
010510 012737 011540 001244 MOV #GGDATO, a#STMPS 
010516 012737 011620 001246 MOV #GGP6 , a#$TMP6 
010524 104224 1$: ERROR +224 

13 010526 000137 011660 JMP @4GGDONE 

1391 010532 GGER8: 

010532 010537 001252 MOV R5,a4$TMP10 
10536 010437 001254 MOV R4,@4$TMP11 

010542 012737 011570 001240 MOV A#GGP3 ,aASTMP3 

010550 012737 011560 001242 MOV #GGP2 , AAS TMPS 

010556 012737 011540 001244 MOV #GGDATO, a#$TMPS5 
10564 012737 011620 001246 MOV #GGP6, AAS TMP6 

010572 104207 1$: ERROR +207 

010574 000137 011660 JMP @4GGDONE 

1393 010600 GGER9: 

010600 010537 001252 MOV R5,a@4$TMP10 
010604 010437 001254 MOV R4,a4$TMP11 
010610 012737 011570 001240 MOV #GGP3, a#STMP3 
010616 012737 011560 001242 MOV A#GGP2 , aASTMPS 
010624 012737 011540 001244 MOV #GGDATO, a#$TMP5 
010632 012737 011620 001246 MOV #GGP6 , AAS TMP6 
010640 104232 1$: ERROR +232 

13 010642 000137 011660 JMP @4GGDONE 

1395 010646 GGER10: 

010646 010537 001252 MOV R5 ,@4$TMP10 
010652 010437 001254 MOV R4,a4$TMP11 
010656 012737 011570 001240 MOV #GGP3, a#$TMP3 
010664 012737 011560 001242 MOV #GGP2 , aS TMPS 
010672 012737 011540 001244 MOV #GGDATO, a#$TMPS 
010700 012737 011630 001246 MOV #GGP7 , aASTMP6 
010706 104225 1$: ERROR +225 

010710 000137 011660 JMP @4GGDONE 

1397 010714 GGER11: 

010714 010537 001252 MOV R5 ,a4STMP 10 
010720 010437 001254 MOV R4,a#STMP11 
010724 012737 011570 001240 MOV #GGP3, aASTMPS 
010732 012737 011560 001242 MOV MGGP2 , AAS TMPS 
010740 012737 011540 001244 MOV #GGDATO, a#$TMPS 
010746 012737 011630 001246 MOV #GGP7 , aS TMP6 


F 4 
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T 


OVER\UNDER TEST SEQ 0044 
010754 104207 1$: ERROR +207 

39g 010756 000157 011660 JMP —— @#GGDONE 

1399 010762 GGER12: 
010762 010537 001252 MOV —s RS, A#STMP 10 
010766 010437 001254 MOV ——- RG a#STMP11 
010772 012737 011570 001240 MOV —« #GGP3, a#STMP3 
011000 012737 011560 001242 MOV —« #GGP2. a STMPG 
01 012737 011540 001244 MOV —« AGGDATO, a#$ TMP 
011014 012737 011630 001246 MOV - #GGP7, a#STMP6 
011022 104231 1$: ERROR +231 

seoq 011024 000137 011660 JMP -—- @M#GGDONE 

1401 911030 GGER13: 
011030 010537 001252 MOV —«RS, @#STMP10 
011034 010437 001254 MOV = RG a#STMP11 
011040 012737 011570 001240 MOV §- #GGP3, a#STMP3 
011046 012737 011560 001242 MOV —-« #GGP2. a#STMPS 
011054 012737 011540 001244 MOV ——-« AGGDATO, a#STMPS 
011062 012737 011630 001246 MOV —«- #GGP7, BAS TMP6 
011070 104230 1$: ERROR +230 

suop 011072 000137 011660 JMP -—- @M#GGDONE 

| 

1403 011076 013701 001236 GGER14: MOV — @#STMP2,R1 

1404 011102 062701 000002 ADD —s- #2,,R1 

1405 011106 020116 CMP sR. (SP) 

1406 011110 001402 BEQ 10$ 

1407 011112 000137 036660 5$: JMP AF PSPUR 

1408 011116 10$: 

1409 011116 170301 STST RI 

1410 011126 020127 000012 CMP saR1, #12 

1411 011124 001372 BNE S$ 

1412 011126 022626 C (SP)+, (SP)+ 

1413 011130 012700 011540 MOV —« #GGDATO, RO 

1414 011134 174010 STD ACO, (ROS 

1416 011136 012737 011550 001240 MOV = #GGP1, a# STMP3 
011144 012737 011570 001242 MOV —« #GGP3. a#STMPS 
011152 012737 011540 001244 MOV -« #GGDATO, a#STMPS 
011160 012737 011620 001246 MOV —- #GGP6, a#STMP6 
011166 104222 1$: ERROR +222 

erp O1IN70 000137 011660 JMP —— @AGGDONE 

1418 011174 GGER15: 
011174 010537 001252 MOV —- RS, a#STMP10 
011200 010437 001254 MOV = R4. a#STMP11 
011204 012737 011560 001240 MOV —- #GGP2, a#STMP3 
011212 012737 011640 001242 MOV —- #GGP8. awSTMP4 
011220 012737 011540 001244 MOV ——- HGGDATO, a#STMP5 
011226 012737 011620 001246 MOV —- #GGP6, a# STMPG 
011234 104207 1$: ERROR +207 

erg 011236 000157 011660 JMP — @#GGDONE 

1420 011242 GGER16: 
011242 010537 001252 MOV —s- RS, a#STMP10 
011246 010437 001254 MOV «RG aS TMP 11 
011252 012737 011560 001240 MOV - #GGP2, a#STMP3 
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001242 


001246 


001240 
001242 


001246 


1$: 


GGER17: 


1$: 


GGER18. 


1$: 


GGER19: 


1$: 


GGER20: 


1$: 


GGDATO: 


GGP1: 


GGPe: 


100200 
0 
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#GGP8 ,a#$STMPS 
#GGDATO,aa#$TMP5 
— 


+232 
@4GGDONE 


R5,a4$TMP10 


#GGP9 , AAS TMPC 
+223 
@4GGDONE 


R5,@#$TMP10 


#GGPE ,, aS TMPS 
#GGDATO, a#$TMPS 
#GGP9 , aS TMP6 
+207 

@4GGDONE 


R5,a4$TMP19 
R4,a4STMP11 
#GGP2 ,a4#STMP3 
#GGP8 , a#$TMP4 
#GGDATO, a#$TMPS 
#GGP9 , aS TMP6 
+230 


@GGDONE 


R5 .@#$TMP10 


+231 
@4GGDONE 
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12 OVER\UNDER TEST SEQ 0046 


1441 011564 

1442 011566 000000 

1443 011570 000200 GGP3: 00 

1444 011572 000000 

1445 011574 

1446 011576 000001 

1447 011600 010200 GGPé: 0200 

1448 011602 000000 

1449 011604 000000 

1450 011606 000000 

1451 011610 077600 GGP5: 77600 ;OVER FLOW = GGPS + GGPS 
1452 011612 000000 

1453 011614 000000 

1454 011616 000000 

1455 011620 000000 GGP6: OVERFLOW RESULT 
1456 Birese 000000 ;UNDERFLOW RESULT 


;GGP6 = GGP4 + GGP5 
: = GGP3 + GGP2 (FIU = 0) 


DOO -OVWOWOOOA DOOCOCVOCO NOOO + -DON0OO 


s GGP3 + GGP1 
1000 011630 062400 GGP?: 2400 ;GGP7 = GGP3 + GGP2 (FIU = 1) 
146! 011632 000000 
1462 011634 000000 
1463 011636 000000 
1464 011640 000340 GGP8: 40 
1465 011642 000000 
1466 011644 000000 
1467 011646 000000 
1468 011650 000100 GGP9: 00 
1469 011652 000000 
1470 011654 000000 
1471 011656 000000 
1472 011660 GGDONE : 
011660 104412 RSE TUP GO INITIALIZE THE FPS AND STACK; AND 
;SEE IF THE USER HAS EXPRESSED 
; THE DESIRE TO CHANGE THE SOF TWARE 
[VIRTUAL CONSOLE SWITCH aeeisten (HAS 
+ THE USER TYPED CONTROL G?). 
1473 
1479 
1480 SERRE EERE EERE RE ERR E REE E OR ERE ERR ER 
;*TEST 3 LDCFD AND LDCDF TEST 


:*THIS IS A TEST OF LDCFD AND LDCDF. 


Ps 
WEP RERERERESASASAASASE SAS RR RES ESE RRR R RRR RASS RAR RRR R ASRS ARDS SS SO | 


011662 900004 TST3: SCOPE 
1481 :TEST FOR CORRECT AUTO INCREMENT CONSTANT. 
1482 011664 HX1: 
011664 104413 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
1483 011666 012704 000200 MOV #200,R4 
1484 011672 170104 LDFPS RG 
1485 011674 012700 013300 MOV #HXP1 RO 
1486 011700 172410 LDL (RO) ACO 
1487 011702 012700 013310 MOV MHXP2 RO 
1488 011706 012737 011714 001236 MOV #HX2, AAS IMP? 
1489 0117146 177420 HX2: LDCFD (RO) +, ACO 


1490 011716 020027 013314 CMP RO, MHXP2+4 1S RO CORRECT 
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CKFPBAO FP11F FLTG PNT PRT B MACRO M1117 1B=SEP=79 13:43 PAGE 11-6 
T3 LDCFD AND LDCDF TEST SEQ 0047 


1491 011722 001402 BEQ HX3 
1492 011724 000137 012656 JMP @AHXER1 
1493 011730 HX3: . 

94 011730 170205 STFPS RS :GET FPS 
1495 011732 012700 013270 MOV #HXDATO,RO 
1496 011736 174010 STD ACO, (RO) :GET ACO 
1497 011740 012701 013360 MOV #HXP7,R1 ;SEE_IF RESULT IS 
1498 011744 012702 000004 MOV #4 R2 : CORRECT 
1499 011750 022120 HX4 : CMP (R1)+,(RO)+ 
1500 011752 001415 BEQ HX7 
1501 011754 012701 013310 MOV M#HXP2,R1 :DID FD GET 
1502 011760 012700 013270 MOV #HXDATO,RO > COMPL IMENTED? 
1503 011764 012702 000004 MOV #4,R 
1504 011770 022120 HX5: CMP (R1)+, (RO) + 
1505 011772 001402 BEQ HX6 
1506 011774 000137 012716 JMP @AHXERZ 
1507 012000 077205 HX6: SOB R2,HX5 
1508 012002 000137 612746 JMP @AHXERS 
1509 012006 077220 HX7: SOB R2,HX4 
1510 012010 012704 000200 MOV #200,R4 zFPS CORRECT? 
1511 012014 020405 CMP R4.R5 
1512 012016 001402 BEQ HX8 
1513 012020 000137 013014 JMP AHXERB 
1514 NOW TEST LDCDF 
1515 012024 HX8: 

012024 104413 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 

1516 012026 012704 000200 MOV #200,R4 
bab 012032 170104 LDFPS R4 
1519 012034 012700 013300 MOV #HXP1 RO 
1320 012040 172410 LDD (RO) ,ACO 
1522 012042 012700 013310 MOV #HXP2 RO 
1325 012046 012737 012056 001236 MOV #HX9, AASTMP2 
1525 012054 170001 SETF 
; 
Std 012056 177420 HX9: LDCDF  (RO)+,ACO :TEST INSTRUCTION 
1529 012060 020027 0613320 CMP RO, #HXP2+10 :WAS A GOOD 
1530 012064 001402 BEQ HX10 : CONSTANT USED 
133) 012066 000137 012676 JMP @AHXERS :TQ INCREMENT RO? 
1533 012072 HX19: 
1534 012072 170205 STFPS RS 
1535 012074 012700 013270 MOV #HXDATO,RO 
1536 012100 170011 SETD 
1537 012102 174010 STD ACO, (RO) :GET RESULT 
1538 012104 012701 013370 MOV #HXPB,R1 
1539 012110 012702 000004 MOV #4,R2 
1540 012114 022120 HX11: CMP (R1)+,(RO)+ zIS IT CORRECT? 
34 012116 001415 BEQ HX14 
1543 012120 012701 013360 MOV MHXP7,R1 
1544 012124 012700 013270 MOV #HXDATO,RO 
1545 012130 012702 000004 MOV #4,R2 
1546 012134 022110 HX12: (MP (R1)+, (RO) DID FD FAIL TO GET 


CKFPBAO FP11F FLTG PNT PRT B 
LDCFD AND LDCDF TEST 
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001236 
000004 


000004 


001236 


000004 


BEQ HX13 ; COMPLIMENTED? 
JMP QAFHXERG 

HX13: S08 R2,HXi2 
JMP QAFHXER7 


HX14: SOB R2,HX11 


MOV #0,R4 FPS CORRECT? 
CMP R4,R5 
BEQ HX15 


TEST GR7 IMMEDIATE MODE CONSTANT 


HX15: 
LPERR ;SET UP THE LOOP ON ERROR ADDRESS. 
MOV #200.R4 
LDFPS R4 sSET FD 
MOV #HX16,a4STMP2 
MOV MHXERS ,@MERRVECT 
CLR R1 
4X16: LDCFD #5201,AC0 
HX165: INC R1 
INC R1 
INC R1 
MOV #CPSPUR ,@MERRVECT 
CMP R1,43 :SEE IF PC WAS 
BEQ HX17 ; CORRECT 
JMP @FHXERI10 
HX17: 
LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
MOV #200,R4 
LDFPS R4 
MOV #HX18,a4STMP2 
MOV #HXP6 RO 
LDD (RO) ,ACO 
MOV #CPSPUR, @4ERRVECT 
#HXP2, RO 


MOV 
HX18: LDCFD (RO),ACO 
MOV #HXDATO,RO 


STD ACO, (RO) GET RESULT. 
MOV MHXP7 ,R1 
MOV #4 ,R2 
HX19: CMP (ROQ)+,(R1)+ 71S RESULT CORRECT? 
BEQ HX20 


JMP @AHXER2 
HX20: SOB R2,HX19 


TEST LDCFD WITH NEGATIVE OPERAND 
HX21: 


LPERR SET UP THE LOOP ON ERROR ADDRESS. 


MOV #200,R4 
LDFPS = =R4 


SEQ 0048 
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13 LOCFD AND LDCDF TEST SEQ 0049 


1601 012350 012737 012370 001236 MOV MHX22 , AASTMP2 

1602 012356 012700 013350 MOV #HXP6 ,RO 

1603 012362 172410 LDD (RO) ,ACO 

1604 012364 012700 013330 MOV MHXPS ,RO 

one 012370 177410 HX22: LDCFD (RO),ACO 

1607 012372 012700 013270 MOV #HXDATO,RO 

1s 012376 174010 STD ACO, (RO) GET RESULT 
1610 012400 012701 013340 MOV MHXPS ,R1 

1611 012404 012702 000004 MOV #4 ,R2 

1612 012410 022120 HX23: CMP (R1)+,(RO)+ 

i? 012412 001415 BEQ HX26 

1615 012414 012701 013360 MOV MHXP7 ,R1 

1616 012420 012700 013270 MOV #HXDATO,RO 

1617 012424 012702 000004 MOV M4 R2 

1618 012430 022120 HX24: CMP (R1)+,(RO)+ WAS SiGN INCORRECT 
1619 012432 001402 BEQ HX25 

1620 012434 000137 013200 JMP @4HXER11 

1621 012440 077205 HX25: SOB R2,HX24 

1Os6 012442 000137 013220 JMP @AHXER12 


623 
1694 012446 077220 HX26: SOB R2,HX23 
\oce sTEST LDCFD O 


62 
1628 012450 HX27: 
012450 104413 LPERR ;SET UP THE LOOP ON ERROR ADDRESS. 
1629 012452 012704 000200 MOV #200,R4 
on 012456 1 R4 
1632 012460 012700 013300 MOV #HXP1 ,RO 


1633 012464 172410 LDD (RO) ,ACO 
1634 012466 172010 ADDD (RO) ,ACO 


1635 
1636 012470 012737 


012502 001236 MOV MHX28 , AASTMP2 
1637 012476 012700 013300 MOV #EXP1 RO 
by = 012502 177410 HX28: LDCFD (RO),ACO 
rae 012504 170205 STFPS = R5 
1642 012506 012700 013270 MOV #HXDATO,RO 
1643 012512 174010 STD ACO, (RO) GET RESULT 


1644 

1645 012514 012701 013300 MOV MHXP1,R1 

1646 012520 012702 000004 MOV #4,R 

1647 012824 022120 HX29: CMP (R1)+,(RO)+ s33 17 0 
1648 012526 001402 BEQ HX30 

1649 012530 000137 013250 JMP SAHXERT3 





aoay 012534 R2,HX29 


6 
1652 012536 012704 000204 MOV #204 ,R4 ZFPS CORRECT 
1653 012542 020405 CMP R4_RS 
1654 012544 001402 BEQ X31 
1655 012546 012776 
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1657 

1658 

1659 012552 
012552 

1660 012554 012704 000200 

1661 012560 170104 


1662 
1663 012562 012700 013350 
1664 012566 172410 


1666 012570 012737 
1667 012576 012700 
rr 012602 177410 
1e0 012604 170205 
1672 012606 012700 013270 
1673 012612 174010 


1674 
1675 012614 012701 013300 
000004 


602 
300 


oo 


par Po 
wh 


1679 012630 000137 013250 
1 

1682 012636 012704 000204 
1685 012646 000137 012776 
1686 012652 000137 013400 
1687 

1688 

1689 

1690 012656 012737 013314 
1691 012664 010037 001240 
1692 012670 104234 

roe? 012672 000137 013400 
1695 012676 012737 013320 
1696 012704 010037 001240 
1697 012710 104237 

698 012712 000137 013400 
013310 
013360 
013270 
013400 
013310 
013360 
013270 
012772 000137 013400 
012776 010537 001240 
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;SET UP THE LOOP ON ERROR ADDRESS. 


:TEST LDCFD 0 
HX31: 
LFERR 
MOV #200,R4 
LDFPS RG 
MOV HHXP6 RO 
LDD (RO) ,ACO 
001236 MOV #HX32, aASTMP2 
MOV #HXP1 _RO 
HX32: LDCFD (RO),ACO 
STFPS RS 
MOV #HXDATO,RO 
STD ACO, (RO) :GET RESULT 
MOV #HXP1,R1 
MOV #4 R2 
HX33: CMP (Ri) +, (RO)+ z1S IT ZERO? 
BEQ HX34 
JMP QAHXER13 
HX34: SOB R2,HX33 
MOV #204,R4 :FPS CORRECT? 
CMP R4.R5 
BEQ HX35 
JMP QAHXERS 
HX35: JMP QAHXDONE 
:RO INCORRECT 
001242 HXER1: MOV MHXP2+4 , AASTMPS 
MOV RO, a#STMP3 
1$: ERROR +234 
JMP @#HXDONE 
001242 HXERS: MOV HHXP2+10,a#$TMP4 
MOV RO, a#STMP3 
1$: ERROR +237 
JMP @#HXDONE 
;REPORT BAD DATA 
001244 HXER2: MOV MHXP2 , BAS TMPS 
001250 MOV #HXP7. AAS TMP? 
001246 HXER22: MOV HHXDATO, a#STMPG 
1$: ERROR +233 
JMP @4HXDONE 
001244 HXER3: MOV M#HXP2 , AASTMPS 
001250 MOV #HXP7 , AAS TMP7 
001246 HXER33: MOV MHXDATO, aS TMPG 
1$: ERROR +241 
JMP @#HXDONE 
HXERG: MOV RS, aASTMP3 


SEQ 0050 
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LDCFD AND LDCDF TEST SEQ 0051 
1713 013002 010437 001242 MOV R4, aS TMPL 
1714 013006 104240 1$: ERROR +240 
1715 013010 000137 013400 JMP @#HXDONE 
1717 013014 010537 001240 HXERB8: MOV RS, a#STMP3 
1718 013020 010437 001242 MOV RG. aS TMPL 
1719 013024 104242 1$: ERROR +262 
1720 013026 000137 JMP @#HXDONE 
1721 013032 012737 013310 001244 HXER6: MOV MHXP2, AAS TMPS 
1722 013040 012737 013370 001250 MOV WHXP8. aASTMP7 
1723 013046 012737 013270 001246 HXER66: MOV #HXDATO, a#$TMP6 
1724 013054 104244 1$: ERROR +244 
1725 3056 000137 013400 JMP @#HXDONE 
1727 013062 012737 013310 001244 HXER7: MOV HHXP2 , AASTMPS 
1728 013070 012737 013370 001250 MOV WHXP8. AAS TMP7 
1729 013076 012737 013270 001246 MOV AHXDATO, a#STMPG 
1730 013104 104243 1$: ERROR +243 
731 013106 000137 013400 JMP @#HXDONE 
1733 013112 032716 000001 HXER9: BIT #1, (SP) :SEE IF IT 
1734 013116 005 BNE 1$ [AN ODD ADDRESS 
1735 013120 022716 012222 CMP #HX165, (SP) 
1736 013124 001402 BEQ 1$ 
1237 013126 000137 036712 JMP a#CPSPUR 
1739 013132 011637 001236 1$: MOV (SP) , a@#$TMP2 
1740 013136 022626 CMP (SP) +, (SP)+ 
1741 013140 104235 2$: ERROR +235 
1748 013142 000137 013400 JMP @#HXDONE 
1744 013146 162701 000003 HXER10: SUB #3,R1 
1745 013152 006301 ASL RI 
1746 013154 012702 012222 MOV #HX165,,R2 
1747 013160 010237 001242 MOV R2, aASTMP4 
1748 013164 160102 SUB R1.R2 
1749 013166 010237 001240 MOV R2. ahSTMP3 
1750 013172 104236 1$: ERROR +236 
1731 013174 000137 013400 JMP @#HXDONE 
1753 013200 012737 013330 001244 HXER11: MOV MHXPS , AAS TMPS 
1754 013206 012737 013340 001250 MOV HHXPS , AASTMP7 
1755 013214 000137 012732 JMP QHHXERZ2 
1756 013220 012737 013330 001244 HXER12: MOV MHXPS , AAS TMPS 
1757 013226 012737 013340 001250 MOV HHXPS . aASTMP7 
1758 013234 012737 013270 001246 MOV #HXDATO, a#STMP6 
1759 013242 104245 1$: ERROR +245 
1760 013244 000137 013400 JMP @#HXDONE 
1762 013250 012737 013300 001244 HXER13: MOV HHXP1 , AAS TMPS 
1763 013256 012737 013300 001250 MOV HHXP1 . aASTMP7 
1764 013264 000137 012732 JMP @AHXERZ2 
1766 013270 000000 HXDATC: 0 
1767 013272 000000 
1768 013274 000000 0 
1769 013276 000000 0 


N 4 
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3 


LDCFD AND LDCDF TEST 
1770 
1771 013300 000000 HXP1: 0 
1772 013302 000000 0 
1773 013304 000000 0 
ir 013306 000000 0 
1776 013310 000577 HXP2: 577 
13312 177776 177776 
1778 013314 177777 177777 
1779 013316 177776 177776 
1780 013320 005201 HXP3: 5201 
1781 013322 000000 0 
1782 013324 000000 0 
1783 013326 000000 0 
1784 013330 100577 HXP4: 100577 
1785 013332 177776 177776 
1786 013334 177777 177777 
1787 013336 177776 177776 
1788 013340 100577 HXP5: 100577 
1789 013342 177776 177776 
1790 013344 0 
1791 013346 000000 0 
1792 013350 000252 HXP6: 252 
1793 013352 125252 125252 
1794 013354 125252 125252 
1? 013356 125252 125252 
1797 013360 000577 HXP7: 7 
1798 013362 177776 177776 
1799 013364 000000 0 
1800 013366 000000 0 
1801 013370 000577 HXP8: 577 
1802 013372 177777 177777 
1803 013374 000000 0 
ioe 013376 000000 0 
1806 013400 2 HXDONE : 
013400 104412 RSE TUP :GO_ INITIALIZE THE FPS AND STACK; AND 
SEE IF THE USER HAS EXPRESSED 
; THE DESIRE TO CHANGE THE SOFTWARE 
VIRTUAL CONSOLE SWITCH REGISTER (HAS 
THE USER TYPED CONTROL G?). 
1807 
1808 
1809 
1817 / 
1818 DG IIT TR IRR RRR EER EERE REE EERE 
T*TEST 4 CMPD TEST 
** 
:*THIS IS A TEST OF THE CMPD INSTRUCTION. NOTE THAT A SUBROUTINE 
:*IS USED TO SET UP OPERANDS, EXECUTE THE INSTRUCTION AND CHECK THE 
; *RESULTS 
** 
TTT TITILILITL TTT TTL TTT ETT TTT TTT TTT Tee 
- 013402 000004 TST4: SCOPE 


1820 TEST THE CMPD INSTRUCTION WITH (FSRC=AC=0) 


SEQ 0052 


CKFPBAO FPI11F FLTG PNT PRT B 
14 CMPD TEST 


MINVINg 


MACRO M1111 
AAAI: 
LPERR 
014216 JSR 
000000 000000 1$: » WORD 
000000 000000 2$: . WORD 
3$: 200 
204 
200 
4$: ERROR 
;TEST CMPD WITH 
LPERR 
014216 JSR 
000000 000000 1$: WORD 
2$: 25252 
52525 
125252 
52525 
3$: 200 
200 
210 
4$: ERROR 
sTEST CMPD WITH 
AAAS: 
LPERR 
014216 JSR 
000000 000000 1$: . WORD 
2s: 125252 
125252 
2525 
125252 
3$: 200 
210 
200 
4$: ERROR 
Zs TEST CMPD WITH 
AAAG: 
LPERR 
014216 JSR 
1$: 25252 
$2525 
125252 
52525 
000000 000000 2$: . WORD 
3$: 200 
210 
200 
4$: ERROR 


B 
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;SET UP THE LOOP ON ERROR ADDRESS. 


PC ,@4CMPSUB 

0.0,0.0 :ACcO 

0.0.0.0 3 FSRC 4 
sFPS BEFORE EXECUTION 
FPS AFTER EXECUTION 
ERROR FPS 

+7 FPS ERROR 


(AC=0) AND FSRC POSITIVE. 
;SET UP THE LOOP ON ERROR ADDRESS. 
PC ,a4CMPSUB 
0,0,0.,0 sAC 
sFSRC 


FPS BEFORE EXECUTION 
FPS AFTER EXECUTION 
ERROR FPS 

+3 FPS ERROR 


(AC=0) AND FSRC NEGATIVE 
;SET UP THE LOOP ON ERROR ADDRESS. 


PC ,@4CMPSUB 

0.0.0.0 sAC 
sFSRC 
sFPS BEFORE EXECUTION 
sFPS AFTER EXECUTION 
;ERROR FPS 

+4 sFPS ERROR. 


(FSRC=0) AND AC POSITIVE 
:SET UP THE LOOP ON ERROR ADDRESS. 
ZAC 


PC ,a@4CMPSUB 


0,0.0,0 iF SRC 


;FPS BEFORE EXECUTION 
sFPS AFTER EXECUTION 
sERROR FPS 

+5 sFPS ERROR 


SEQ 0053 


C 
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4 CMPD TEST SEQ 0054 
1869 
1870 
1871 


8 TEST CMPD WITH (FSRC=0) AND AC NEGATIVE 
1872 013574 AAAS: 


013574 104413 LPERR SET UP THE LOOP ON ERROR ADDRESS. 
by i Bi e278 004737 014216 JSR PC ,a#CMPSUB 
1874 013602 125252 1$: 125252 sAC 
1875 013604 125252 125252 
76 013606 052525 52525 
1877 013610 125252 125252 
1878 013612 000000 000000 000000 2$: -WORD 0,0,0,0 ZFSRC 
013620 000000 
1879 013622 000200 3$: 200 :FPS BEFORE EXECUTION 
1880 013624 000200 200 ;FPS AFTER EXECUTION 
1881 013626 000210 210 ;ERROR FPS 
ae 013630 104006 4$: ERROR +6 :FPS ERROR 
1884 3; TEST CMPD WITH AC POSITIVE AND FSRC NEGATIVE 
1885 013632 AAAG: 
013632 104413 LPERR ;SET UP THE LOOP ON ERROR ADDRESS. 
1886 013634 004737 014216 JSR PC ,@4CMPSUB 
1887 013640 052525 1$: 52525 sAC 
1888 013642 125252 125252 
1889 013644 052525 52525 
1890 013646 125252 125252 
1891 013650 125252 2$: 125252 33F SRC 
1892 013652 052525 52525 
1893 013654 125252 125252 
1894 013656 052525 52525 
1895 013660 000200 3$: 200 :FPS BEFORE EXECUTION 
1896 013662 000210 210 sFPS fi EXECUTION 
1897 013664 000200 200 TERROR F 
Hy a 013666 104007 4$: ERROR +7 zFPS ERROR 
1900 
1 3; TEST CMPD WITH AC NEGATIVE AND FSRC POSITIVE 
1902 013670 AAA7: 
013670 104413 LPERR SET UP THE LOOP ON ERROR ADDRESS. 
1903 013672 004737 014216 JSR PC ,a4CMPSUB 
1904 013676 125252 1$: 125252 sAC 
1905 013700 052525 52525 
1906 013702 125252 125252 
1907 013704 052525 5 
1908 013 052525 2$: 52525 ZFSRC 
1909 013710 125252 125252 
1910 013712 052525 52 
1911 013714 125252 125252 
1912 013716 000200 3$: 200 sFPS BEFORE EXECUTION 
1913 01372f 000200 200 FPS AFTER EXECUTION 
1914 013722 000210 210 ERROR FPS 
at] 013724 104010 4$: ERROR +10 :FPS ERROR. 
1917 TEST CMPD WITH AC POSITIVE AND FSRC POSITIVE 
1918 ;AND EAC LESS THAN EF SRC. 
1919 013726 8: 
013726 104413 LPERR ;SET UP THE LOOP ON ERROR ADDRESS. 
1920 013730 004737 014216 JSR PC ,@#CMPSUB 





CKFPBAO FP11F FLTG PNT PRT B 
4 CMPD TEST 


1921 013734 


1932 013762 

1933 

1934 

1935 

1936 013764 
13764 

1937 013766 


1949 014020 
1950 


1951 

1952 014022 
014022 

1953 014024 

195 030 


1962 014050 


014216 


014216 


MACRO M1113 


1$: 


23: 


3$: 


4$: 


dD 5 
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+11 


ZAC 


sFSRC 


;FPS BEFORE EXECUTION 
;FPS AFTER EXECUTION 
sERROR FPS 
;FPS ERROR 


Ha CMPD WITH AC POSITIVE. FSRC POSITIVE AND EAC GREATER THAN EFSRC 
AAAS: 


1$: 


2$: 


3$: 


4$: 


LPERR 


PC ,@4CMPSUB 


+12 


;SET UP THE LOOP ON ERROR ADDRESS. 
ZAC 


sFSRC 


FPS BEFORE EXECUTION 
FPS AFTER EXECUTION 
ZERROR FPS 


eto CMPD WITH AC POSITIVE, FSRC POSITIVE AND AC EQUAL TO FSRC 
AAAI0: 


1$: 


2s: 


3$: 


PC ,@4CMPSUB 


:SET UP THE LOOP ON ERROR ADDRESS. 
ZAC 


sF SRC 


FPS BEFORE EXECUTION 


SEQ 0055 





E 
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4 CMPD TEST SEQ 0056 
1964 014052 000204 204 sFPS © oe EXECUTION 
1965 014054 000200 200 SERROR FPS 
Me 014056 104013 4$: ERROR +13 [FPS ERROR 
1968 TEST CMPD WITH AC POSITIVE, FSRC POSITIVE, EAC EQUAL TO EFSRC, 
1969 :AND FSRC GREATER THAN AC. 

1970 014060 AAAI1: 
014060 104413 LPERR SET UP THE LOOP ON ERROR ADDRESS. 
1971 014062 0046737 014216 JSR PC ,a@4CMPSUB 
1972 014066 012345 1$: 12345 sAC 
1972 014070 07012 67012 
1974 014072 034567 
1975 014074 012345 012345 
1976 014076 012345 2$: 12345 ZFSRC 
1977 014100 070123 70123 
1978 014102 045670 45670 
1979 014104 123456 : 123456 
1980 014106 000200 3$: 200 FPS BEFORE EXECUTION 
1981 014110 000200 200 FPS AFTER EXECUTION 
1982 014112 000210 210 ERROR FPS 
be Sg 014114 104014 4$: ERROR +14 FPS ERROR 
1985 TEST CMPD WITH AC POSITIVE, FSRC POSITIVE, EAC EQUAL TO EFSRC, 
19 SAND AC GREATER THAN FSRC. 
1987 014116 AAAI2: 
014116 104413 LPERR ;SET UP THE LOOP ON ERROR ADDRESS. 
1988 014120 004737 014216 JSR PC ,@4CMPSUB 
1989 014124 054321 1$: 54321 sAC 
1990 014126 076543 76543 
1991 30 021076 21076 
1992 014132 054321 54321 
1993 014134 054321 2s: 54321 sFSRC 
1994 36 065432 65432 
1995 014140 107654 107654 
1 014142 032107 32107 
1997 014144 000200 3$: 200 FPS BEFORE EXECUTION 
1998 014146 000210 210 FPS AFTER EXECUTION 
1999 014150 000200 200 ERROR FPS 
£50 014152 104015 4$: ERROR +15 FPS ERROR 
2002 TEST CMPD WITH AC NEGATIVE, FSRC NEGATIVE, EAC EQUAL TO EFSRC, 
2003 [AND _AC GREATER THAN FSRC 
2004 014154 AAA13: 
014154 104413 LPERR SET UP THE LOOP ON ERROR ADDRESS. 
2005 014156 004737 014216 JSR PC ,@4CMPSUB 
2006 014162 112345 1$: 112345 sAC 
2007 014164 043210 43210 
2008 014166 076543 76543 
2009 014170 02107 21076 
2010 014172 112345 2$: 112345 iF SRC 
2011 014174 054321 54321 
2012 014176 7654 07654 
2013 014200 032107 32107 
2014 014202 000200 3$: 200 FPS BEFORE EXECUTION 
2015 014204 000210 210 SFPS - EXECUTION 
2016 014206 000200 200 ZERROR F 
2017 014210 104016 4$: ERROR +16 iFPS ERROR 








CKFPBAO FP11F FLIG PNT PRT B 
4 CMPD TEST 


one 014216 


204 
2048 014220 
an 014224 


ah 014236 


5088 014240 
2056 014242 


2057 
2058 014246 
2059 014250 
2060 
2061 014252 
2062 
2063 014254 


2064 
2065 014260 
2066 264 


20 14306 
or 614310 
2072 


2073 
2074 014312 


012601 


016100 
170100 


012737 
010100 
172410 
010100 
062700 
000240 
173410 
170205 
016104 


010137 
010137 
37 


026105 


9 
ey 014212 000137 014406 


000020 


014250 


000010 


000024 


MACRO M1111 


001236 


001242 


F 
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SEQ a7 


JMP @AAAADONE FINISHED CMPD TEST. 





; THIS SUBROUTINE, CMPSUB, IS CALLED TO SET th EXECUTE 
ZAND CHECK THE RESULTS OF A CMPD INSTRUCTION 
:1T 1S CALLED THUS: 


; JSR PC ,@4CMPSUB 
: ACARG: .WORD X,X,X,X ;AC OPERAND 
: FSRCARG:.WORD X,X,X,X sFSRC OPERAND 
PSB: WORD Xx 
FPSA: . WORD x sFPS » oe EXECUTION 
FPSE: -WORD X 4 ne Re PS 
Z ERR: ERROR +X S ERROR 
; CONT: RETURN ADDRESS 


; THE OPERANDS ARE SET UP (USING ACO FOR THE AC OPERAND). THEN 

3FPSB IS LOADED INTO THE FPS. THE INSTRUCTION, CMPD, IS EXECUTED. 

sAFTER THE EXECUTION THE FPS IS CHECKED AGAINST FPSA. IF IT IS A MATCH 
; THEN THERE WAS NO ERROR AND CONTROL IS RETURNED TO CONT. IF 

i; THE FPS IS INCORRECT IT IS COMPARED WITH FPSE IN AN ATTEMPT TO ANALYSE 
;THE FAILURE. IF THE FPS IS THE SAME AS FPSE THEN CONTROL IS 

:RETURNED TO THE ERROR CALL AT LOCATION ERR. IF THE FPS WAS 
:NOT CORRECT BUT DIDN'T MATCH FPSE A GENERAL ERROR IS REPORTED 

;AND CONTROL IS PASSED TO CONT. 


CMPSUB: MOV 


(SP)+,R1 
20(R1).RO 
RO 

#1$, a4SITMP2 
R1,RO 

(RO) ,ACO 
R1,RO 
#10,RO 

(RO) ,ACO 

R5 
22(R1) RG 
R1,a#STMP3 
R1. a#STMP4 
#10, a#$TMP4 
RS, a#$TMPS 
R4. aASTMP 


R4,R5 
3$ 


24(R1) ,R5 


;PICK UP _A POINTER TO THE 

; ARGUMENTS. 

:GET THE FPS ae: EXECUTION. 
;LOAD IT INTO THE FPS. 


;SAVE ADDRESS OF CMPD INSTRUCTION. 
;GET ADDRESS OF AC OPERAND. 
[LOAD ACO OPERAND 


; COMPUTE FSRC OPERAND 
; ADDRESS 


sFPS BEFORE EXECUTION 


FOR SCOPING. 
sEXECUTE THE TEST INSTRUCTION. 


SAVE FPS AFTER INSTRUCTION. 
:GET EXPECTED FPS. 


7 1F INCORRECT SET UP FOR 
3AN ERROR CALL. 


;WAS FPS CORRECT? 
BRANCH IF YES. 


3WAS THE FPS THE SAME 


OREN E ME: PEER GE TL ee, WE Be ee aie es ois SATS ioe 
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14 CMPD TEST SEQ 0058 


2075 sAS THE ip te hat a FPS? 
so79 014316 001003 BNE 2$ [BRANCH IF NO MA 

2078 014320 062701 000026 ADD #26,R1 z1F THE EXPECTED fa 
2079 iFPS MATCHED THE RESULTANT FPS 

2080 014324 000111 JMP (R1) RETURN TO THE ERROR CALL 

2081 TIN THE CALLING ROUTINE. 

2083 014326 104001 2$: ERROR +1 OTHERWISE REPORT INCORRECT FPS 
Soe 014330 000411 BR 5$ 

2086 014332 012700 014376 3$: MOV #CMPTMP ,RO :1F FPS WAS CORRECT MAKE SURE 
2087 014336 174010 STD ACO, (RO) 3ACO WAS NOT AFFECTED BY CMPD. 
2088 014340 010102 MOV R1,Re 

2089 014342 012703 000004 MOV #4 ,R3 

2090 014346 022220 4$: CMP (R2)+,(RO)+ 

2091 014350 001003 BNE 6$ 

on 014352 077303 SOB R3,4$ 

pis] 014354 000161 000030 5$: JMP 30(R1) RETURN 

2096 014360 6$: sREPORT ACO MODIFIED BY CMPD 
2097 014360 010137 001240 MOV R1,a42TMP3 

2098 014364 012737 014376 001242 MOV ACMPTMP , aS TMPS 

2099 614372 104002 7$: ERROR +2 

44 014374 000767 BR 5$ RETURN 


2102 014376 000000 000000 000000 CMPTMP: .WwORD 0,0,0,0 
014404 000000 


2103 
2104 
2105 
2106 014406 AAADONE : 
014406 104412 RSE TUP :GO INITIALIZE THE FPS AND STACK; AND 
TSEE IF THE USER HAS EXPRESSED 
[THE DESIRE TO CHANGE THE SOF TWARE 
[VIRTUAL CONSOLE SWITCH REGISTER (HAS 
TTHE USER TYPED CONTROL G?). 
2107 
2108 
2109 
2117 
2118 VERA AAR RRESASESRES EES SSSR E SER RRS ERA RRR RRR RRR RRR RRR RRR RRR RRR SEES | 
;*TEST 5 DIVD WITH (FSRC=0) AND (BUT FD) TEST 
TeTHIS IS A TEST OF THE DIVD INSTRUCTION WITH A 
[*ZERO DIVISOR. THE CONDITION IS CHECKED WITH BOTH 
:*TRAP ENABLED AND TRAPS DISABLED. 
DUO IOUT IR EIR R ER ERR ER EEE EERE ER ER ERR EERE EEE 
9 014410 000004 TST5: SCOPE 


0 sFIRST TEST DIVD WITH (FSRC=AC=0) AND TRAPS DISABLED 
014412 104413 LPERR ;SET UP THE LOOP ON ERROR ADDRESS. 
014414 012704 040200 BBBO: MOV #40200 ,R4 T UP FPS 

3 TH INTERRUPTS 

SABLED. 


:SE 
swl 
iD! 








ees FPIIF FLTG PNT PRT B 


DIVD WITH (FSRC=0) AND (BuT FD) TEST 


125 014420 
126 014422 
7 014430 


™M 


RALUYSSSVOVR 
oo 
oad and 
, a 
te 
we 


014444 
014450 


014452 
014454 


014456 
38 014462 
39 014464 
2140 


2 
2 
é 
21 
2 
21 
2 
21 
2 
21 
2 
2 
21 
2 
2 
2 


Ww 
N 


; 
1 
1 
1 
1 
1 
1 
1 
1 


2143 014474 
2144 


2145 
2146 014476 
014476 
2147 014500 
2148 014504 
2149 
2150 014506 
2151 014514 
2152 0145820 
2153 014522 
2154 014526 
2155 
2156 014530 
2157 014532 
2158 


2159 014534 
2160 014540 
2161 014542 


2162 
2163 014544 
2164 014550 
2165 014552 
2166 


a a 
2168 014554 
014554 
2169 014556 
2170 014562 
171 
2172 014564 


2173 014572 
2174 014576 
2175 


78 
2179 014612 


012701 
174411 


170205 
170303 


012702 
0620203 
001140 


104413 
012704 
170104 


012737 


174410 


170205 
170303 


012704 


SX RRA 


oo ON ©& 


014664 
014450 
015070 


015070 


140204 


000004 


040200 


014526 
015100 


015070 


140200 


000004 


MACRO M1111 


000244 
001236 


001236 


000244 


H 5 
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RG 


#BBBER1 ,aa#FPVECT;SET UP FOR ANY FP INTERRUPTS. 


#BBB1 , aASTMP2 


#BBAP | ,RO 
(RO) ,ACO 
#BBBP 


. 


(R1),ACO 


R5 
R3 


#140204 ,,R4 
R4,RS 


;SET UP ACO = 0 
sFSRC = 0 
sTEST INSTRUCTION 


:GET FPS 
;GET FEC 


sEXPECTED FPS. 
31S FPS CORRECT. 
IF INCORRECT BRANCH. 


sEXPECTED FEC. 
31S FEC CORRECT? 
71F INCORRECT BRANCH. 


(FSRC=0) AND TRAPS DISABLED. 


#40200 ,R4 
R4 


#BBB3 , aS TMP 
#BRBBP2 ,RO 


(RO) ACO 
#BRBP1 ,R 
(RO) ,ACO 


RS 
R3 


#140200,R4 
R4,R5 


;SET UP THE LOOP ON ERROR ADDRESS. 
;LOAD FPS WITH TRAPS DISABLED. 


:SET UP ACO OPERAND (NON ZERO). 
7F SRC=0 


iGET FPS. 
:GET FEC. 


sEXPECTED FPS. 


:1S FPS CORRECT? 
:1F INCORRECT BRANCH. 


wimg hi FEC. 
S FEC CORRECT? 
aT > INCRE CT BRANCH. 


FSRC=0) AND TRAPS ENABLED. 


#200,R4 
R4 


ABBBS , AAS TMP 
#BBBP 2 ,RO 


oR 
(RO) ,ACO 


#BBR6 , AF PVECT 
#BBBP | ,RO 


(RO) ,ACO 


;SET UP 1HE LOOP ON ERROR ADDRESS. 
:SET UP FPS. TRAP ENABLED. 


7SET UP ACO OPERAND (NON ZERO). 


Hh UP FOR THE EXPECTED INTERRUPT. 


FSRC=0 


TEST INSTRUCTION (SHOULD RESULT IN TRAP). 


SEQ 0059 





CEFPRAD FPI1IF FLTG PNT PRT B 
ib) DIVD WITH (FSRC=0) AND (BuT FD) 


2180 014614 
2181 

sine 014616 
2184 014620 


98 
2199 014650 
2200 014654 
2201 014656 


2 
2203 014660 
04 


06 
2207 014664 
2208 
2209 
2210 014672 


2212 014700 


SSe6 014772 


34 
35 014776 
2236 015002 


170000 
000502 
022716 


001402 
000137 


170205 
170303 
022626 


012704 
020405 
001040 
012702 
020203 
001047 


000137 


021637 
001402 
000137 


022626 
17 


014614 


036660 


100200 
006004 
015110 


000002 


001236 
036660 


50 
140200 


015110 


015110 


001242 
001240 


MACRO M1111 


001236 


001240 


001246 


I 
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SEQ 0060 | 


;GO REPORT FAILURE, NO TRAP. 
; TRAP TO HERE WHEN THE DIVISION BY 0 


OCCURS. FIRST SEE IF THE ADDRESS OF 


‘THE TRAP [S 2+THE ADDRESS OF THE TEST 
“DIVD INSTRUCTION. 


i1F NOT THEN REPORT AN UNEXPECTED 
FP TRAP. 
‘GET FPS. 


[GET FEC. 
SRESET THE STACK. 


EXPECTED FPS. 
:1S FPS CORRECT? 
7 1F INCORRECT BRANCH. 


EXPECTED FEC. 
:1S FEC CORRECT? 
:1F INCORRECT BRANCH. 


OTHERWISE GO TO NEXT TEST. ai 


SEE IF THE INTERRUPT OCCURRED 
;DURING THE EXECUTION OF THE DiVD 


S INSTRUCTION BEING TESTED. 


;1F NOT REPORT UNEXPECTED FP TRAP. 
ZRESET THE STACK. 
:GET FEC. 


GET FPS. 
EXPECTED FEC. 


;REPORT (BUT FD) — RESULTING IN AN FP TRAP 
;WITH TRAPS DISABLED 


TEST 
CFCC 
BR BBBERS 
BBB6: CMP #BBBS+2, (SP) 
BEQ 1$ 
JMP aaFPSPUR 
1$: STFPS RS 
STST —s RB 
CMP (SP)+, (SP) + 
MOV #100200,R4 
CMP R4 RS 
BNE BBBER2 
MOV #4,R2 
CMP R2,R3 
BNE BBBER3 
JMP @4#BBBDONE 
TRAP HERE IF AN UNEXPECTED INTERRUPT OCCURS. 
BBRER1: ADD #2, dASTMP2 : 
CMP (SP) ,a#STMP2 
BEQ 1$ 
JMP @4F PSPUR 
1$: CMP (SP)+, (SP) + 
STST — RB 
STFPS R5 
MOV #4, QASTMP3 
MOV R3.a4STMPG 
MOV R5 . aASTMPS 
MOV RO. aA#STMP7 
MOV #140200, a#$TMP6 
2s: ERROR +17 
JMP @*BRBDONE 
sREPORT FPS INCORRECT: 
BBBER2: MOV RS, aASTMPG 
MOV RG. aASTMPS 
MOV RO. a#$TMP6 
MOV R1_a#$TMP7 
1$: ERROR +20 
JMP @/BBBDONE 
:REPORT FEC INCORRECT: 
BBBER3: MOV R3, aS TMPS 


MOV 


R2,a4$TMP3 
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DIVD WITH (FSRC=0) AND (BUT FD) TEST SEQ 0061 


2237 015006 010037 001246 MOV RO, aASTMP6 

2238 015012 010137 001250 MOV R1.a#$TMP7 

2239 015016 104021 1$: ERROR +2 

240 015020 000137 016110 JMP @#BRRDONE 

2242 :REPORT NO TRAP OCCURRED AFTER TRYING TO DIVIDE 
2243 ‘BY ZERO WITH ALL TRAPS ENABLED. 

2244 015024 170303 BBBERG: STST = R3 :GET FEC. 
2245 015026 170205 . STFPS = R5 “GET FPS. 
2246 015030 012737 000004 001242 MOV #4, AASTMPS 

2247 015036 010337 001240 MOV RS. * aASTMP3 

2248 015042 010537 001244 MOV a4STMPS 

2249 015046 012737 100200 001246 MOV #1600004 ars TMP 

2250 015054 010037 001250 MOV RO, a#$TMP 

2251 015060 010137 001252 MOV R1. os Ha 

2252 015064 104022 1$: ERROR +22 

2298 015066 000410 BR BBBDONE 

2255 015070 000000 000000 000000 BBBP1: .WORD 0,0,0.0 


000000 
2256 015100 012345 054321 023456 BBBP2: .WORD  12345,54321,23456,76543 
’ 015106 076543 







225 
2258 
2259 
2260 015110 BBBDONE : 
015110 104412 RSE TUP :GO_ INITIALIZE THE FPS AND STACK; AND 
7SEE IF THE USER HAS EXPRESSED 
; THE DESIRE TO CHANGE THE SOFTWARE 
VIRTUAL CONSOLE SWITCH REGISTER (HAS 
THE USER TYPED CONTROL G?). 
2261 
2262 
2270 
2271 DDO IIIS IIIDIIIOIISIIIDIOIIIIIIOIIOIICIOIIUIIIDIOIOIUIOIUIDIDIDIDIUIDISIDIUIDIOISIUIOIOIIOIOIOIOIIOI 
:*TEST 6 DIVF TEST 
 * 
:*THIS IS A TEST OF THE DIVF INSTRUCTION. NOTE THAT A SUBROUTINE IS 
zsUSED 10 SET UP THE OPERANDS, EXECUTE THE INSTRUCTION AND CHECK THE 
{AAAI IEIISISIIIISISIIOIDIOUOI OOOO ISISIIOIIUSIIIISIDOIIIO IOI IOI EID 
015112 000004 TST6: SCOPE 
2272 
2273 16 jo DIVF WITH (AC=0). 
14 104413 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
16 004767 000552 JSR PC ,DIVF SUB 
22 000000 000000 1$: - WORD sAC 
26 012345 067012 2$: WORD = 12345,67012 SRC 
32 000000 000000 3$: -WORD 0,0 : 
36 000000 4$ 0 :FPS BEFORE EXECUTION. 
40 4 :FPS AFTER EXECUTION 
42 012345 067012 5$: -WORD 12345,67012 ;ERROR RESULT 
46 104023 6$: ERRCR +23 sRESULT BAD. 





;TEST DIVF WITH AC POSITIVE, 





FSRC POSITIVE AND IN ROUND MODE. 


CKFPBAO FP11F FLTG PNT PRT B 
T6 TEST 


DIVF 
2285 015150 
015150 


0152 
2303 015232 
2304 

015236 


7 
015240 


2325 015320 
2326 015322 
2327 015326 
2328 


2329 
2330 015330 
015330 
2331 015332 
2332 015336 
2333 015342 
2334 015346 
2335 015352 
2336 015354 


015674 
177777 


000000 
177777 


002000 


015674 
177777 


000000 
125252 


177777 


015674 
000001 
000000 
000001 


MACRO M1111 


K 
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PC ,a4DIVF SUB 
65652,125252 


65600, 
40252,125252 
40052,125252 
+24 

AC POSITIVE, 
PC ,DIVF SUB 
76400,0 
76400,0 
40200,0 


140200,0 
+25 


;SET UP THE LOOP ON ERROR ADDRESS. 
sAC 
sFSRC 
;RES 
;FPS BEFORE EXECUTION. 
;FPS AFTER EXECUTION. 
;ERROR RESULT. 
;DIV NORMALIZE FAILURE. 
FSRC POSITIVE. 
;SET UP THE LOOP ON ERROR ADDRESS. 
sAC 
sFSRC 
“RES 
sFPS BEFORE EXECUTION. 
sFPS AFTER EXECUTION. 
ZERROR RES. 


SIGN BAD. 


443 of DIVF WITH BOTH OPERANDS POSITIVE. 


PC, a#D1VF SUB 
56777,177777 


54200.0 
42777,177777 


2000, 2000 
+23 


PC ,a#DIVF SUB 
12877, 177777 
40252.125252 


~],~1 
+23 


;SET UP THE LOOP ON ERROR ADDRESS. 


IFSRC 


ZRES 

FPS BEFORE EXECUTION. 
SFPS AFTER EXECUTION. 
ERROR RES. 


;SET UP THE LOOP ON ERROR ADDRESS. 


“SRC 


ZRES 

[FPS BEFORE EXECUTION. 
FPS AFTER EXECUTION. 
ERROR RES. 


tu DIVIDE ALGORITHM. TEST ROUND CONSTANT. 


PC ,a4D1 VF SUB 
64600, 1 
666000 
36200,1 


ZAC 
sFSRC 
RES 

;FPS BEFORE EXECUTION. 
sFPS AFTER EXECUTION. 


;SET UP THE LOOP ON ERROR ADDRESS. 





CKFPBAO FP11F FLTG PNT 
16 TEST 


DIVF 
2337 C15356 
2338 015362 


2 

2387 015544 
015544 

2388 015546 


003000 
104023 


PRT B 


003000 


015674 
177776 
000000 
177776 


003400 


015674 
125252 


000000 
107070 


107070 


015674 
000000 
000000 
125253 
125253 
015674 


000000 


015674 


MACRO M1111 


5$: . WORD 
6$: ERROR 
sTEST DIVF. 
CCC?: 

LPERR 

JSR 
1$: WORD 
2$: . WORD 
3$: . WORD 
4$: 17 

0 
5$: J D 
6$: ERROR 
sDIVF TEST 
ccc8: 

LPERR 

JSR 
1$: . WORD 
2$: . WORD 
3$: . WORD 
4$: 0 

0 
5$ . WORD 
6$ ERROR 


LPERR 

JSR 
1$: . WORD 
2$: . WORD 
3$: . WORD 
4$: 0 

0 
5$ . WORD 
6$ ERROR 
sDIVF WITH AC 
CCC10: 

LPERR 

JSR 
1$: . WORD 
2s: . WORD 
3$: . WORD 
4$: 7 

10 
5$: . WORD 
6$: ERROR 


DIVF WITH AC 
CCC11: 
LPERR 


JSR 


2 
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3000, 3000 
+23 


PC, a#DIVF SUB 
34577,177776 
23400,0 

51377.177776 


3400, 3400 
+23 


51543,107070 
+26 


;ERROR RES. 


;SET UP THE LOOP ON ERROR ADDRESS. 
sAC 

sFSRC 

[FPS BEFORE EXECUTION. 


FPS AFTER EXECUTION. 
ERROR RES. 


;SET UP THE LOOP ON ERROR ADDRESS. 


sAC 
sFSRC 


sRES 

FPS BEFORE EXECUTION. 

FPS AFTER EXECUTION. 

ERROR RES 

[DIDN'T INCREMENT THE EXPONENT 
ZAFTER DIVID NORMALIZATION. 


NEGATIVE, FSRC NEGATIVE. 


PC ,@4D1VF SUB 
140400 


e 


140500,0 
040052, 125253 
140052, 125253 
+27 


NEGATIVE AND FSRC 


PC, a#D1VF SUB 
160077,0 
40277,0 
160000,0 


60000 ,0 
+27 


POSITIVE AND FSRC 


PC ,@4D1 VF SUB 


:SET UP THE LOOP ON ERROR ADDRESS. 


C 
sFSRC 


sRES 

FPS BEFORE EXECUTION. 
FPS AFTER EXECUTION. 
ERROR RES. 

BAD SIGN. 


POSITIVE. 


;SET UP THE LOOP ON ERROR ADDRESS. 


sAC 
2FSRC 


;RES 

[FPS BEFORE EXECUTION. 
FPS AFTER EXECUTION. 
TERROR RES. 
;BAD SIGN. 


NEGATIVE. 


;SET UP THE LOOP ON ERROR ADDRESS. 


SEQ 0063 


CKFPBAO FP11F FLTG PNT 
T6 DIVF TEST 


2389 015552 
90 


9 
2420 015670 


PRT B 
000000 
000000 
125253 


125253 


015674 
000001 
000000 
000000 


000001 


000000 


016120 


M 
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1$: .WORD  40400,0 ZAC 

2$: “wORD 140500,0 SF SRC 

3$: “WORD 140052.125253  :RES 

4$: fd sFPS BEFORE EXECUTION. 
10 sFPS AFTER EXECUTION. 

5$: ,WORD 40052,125253 ERROR RES. 

6$: ERROR +27 ;BAD SIGN. 

gress DIVF BOTH OPERANDS POSITIVE AND TRUNCATE MODE. 
LPERR ;SET UP THE LOOP ON ERROR ADDRESS. 
JSR PC ,@4DIVF SUB 

1$: ~ WORD 60100,1 sAC 

2$: . WORD 40300,0 <FSRC 

3$: . WORD 60000,0 sRES 

4$: 52 sFPS BEFORE EXECUTION. 
40 sFPS AFTER EXECUTION. 

5$: ~ WORD 60000,1 sERROR RES. 

6$: ERROR +30 ; TRUNCATION ERROR 

pois WITH POSITIVE OPERANDS AND ROUND MODE. 
LPERR ;SET UP THE LOOP ON ERROR ADDRESS. 
JSR PC,DIVF SUB 

1$: “WORD 60100,1 ZAC 

2$: «WORD 40300,0 sFSRC 

3$: "WORD  60000.1 ‘RES 

4$: 5 sFPS BEFORE EXECUTION. 
0 sFPS AFTER EXECUTION. 

5$: .~WORD 60000,0 sERROR RES. 

6s: ERROR +31 SROUND ERROR. 


JMP a4#CCCDONE :GO TO NEXT TEST. 


THIS SUBROUTINE, DIVFSUB, IS CALLED TO SET UP, EXECUTE 
AND CHECK THE RESULT OF A DIVF INSTRUCTION. IT IS CALLED THUS: 


: JSR PC ,a4D1VF SUB 

: ACARG: .WORD X,X :AC_OPERAND 

: FSRCARG:.WORD X,X zFSRC OPERAND 

: RES: «WORD X,X nap Ul 5 RESULT 
FPSB: .WORD X FPS BEFORE EXECUTION 

: FPSA: .WORD X ZFS AFTER EXECUTION 

: ERRES: .WORD X,X ;ERROR RESULT 

: ERR: ERROR +X ;RESULT ERROR 

: CONT: RETURN ADDRESS 


THE OPERANDS ARE SET UP (USING ACO FOR THE AC OPERAND). THEN 
FPSB IS LOADED INTO THE FPS. THE INSTRUCTION, DIVF ve EXECUTED. 
ZAFTER THE noses THE RESULT Fan is cc peer Heh HE 


[THE INCORRECT RESULT MATCHED ERRES THEN CONTROL IS PASSED TO 
;THE ERROR CALL AT ERR. IF THE INCORRECT RESULT DID NOT MATCH ERRES 


SEQ 0064 


CKFPBAO FP11F FLTG PNT 
16 DIVF TEST 


2457 015726 
2458 
2459 015732 
2460 
2461 015734 
2462 015736 
2463 015742 
2464 


by 
2465 015744 
2466 015750 


2467 
2468 015752 


2472 015770 
2473 015774 
2474 016000 
2475 016006 
2476 016012 
2477 

2478 016020 
2479 016024 
2489 016026 
2481 016034 
2482 

2483 016036 
2484 016042 
2435 016044 
2486 

2487 016050 
2488 016054 

2489 016056 
Sot 90 016064 
5492 016066 
2493 

2494 016070 
2495 076074 
2456 

2497 916076 


2498 016076 
2499 016100 
2500 


ee rN“ 
S8s8882 


papery 
Mm 
W 
N 


012700 
174010 


010102 


010102 
062702 
000112 


104023 
000161 


PRT B 


000200 
000014 


015732 
000004 


000200 


016110 


001240 
000004 
001242 
000004 


000024 


000026 


MACRO M1111 


N 
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7; THEN THE FAILURE IS REPORTED IN DIVFSUB AND CONTROL IS PASSED TO 
:CONT IF NO ERRORS ARE DETECTED THEN DIVFSUB RETURNS CONTROL 


DIVF SUB: 
MO 


001236 


001246 
001252 


000012 


10$: 


000022 


—_d oh ed 
Wr 
PAM 


MOV (SP)+,R1 :GET A POINTER TO THE ARGUMENTS. 

#200.R0 :SET FD MODE. 

R1,RO :LOAD THE AC OPERAND. 

(RO) ACO 

14(R1) ,RO :LOAD THE FPS 

#1$,a4$TMP2 

R1,RO 

#4-RO ;ESTABLISH A POINTER TO FSRC. 

(RO) .ACO s TEST INSTRUCTION. 

R4 :GET THE FPS. 

#200,RO ‘SET FD MODE 

RO 

ADIVFT,RO :GET THE RESULT OF THE DIVF. 

ACO, (RO) 

R1,R2 zSAVE THE DATA IN CASE OF ERROR. 

Re. a#STMP3 

R2. aASTMPS 

#4 ,R2 

R2. a#STMPS 

ADIVFT, a#STMPG 

R4, @ASTMP7 

16(R1) ,a#$TMP10 

(RO), 10(R1) :1S THE RESULT CORRECT? 

1 SIF INCORRECT BRANCH. 

2(RO),12(R1) 

10$ 

16(R1) RS z1S FPS CORRECT? 

1 iT INCORRECT BRANCH 

26(R1) ‘IF NO ERRORS OCCURRED RETURN. 

(RO) ,20(R1) :DOES THE INCORRECT RESULT 
“MATCH THE ANTICIPATED INCORRECT RESULT. 

2(RO) ,22(R1) 

11$ :BRANCH IF NO. 

R1,R2 :1T MATCHED SO RETURN TO THE ERROR 
“REPORT AT THE CALLING ROUTINE. 

#24,R2 

(R25 

fi :REPORT RESULT INCORRECT. 

+ 

26(R1) 


SEQ 0065 


DIVF 
2501 016104 


016122 
8 
2519 
2520 016124 
016124 
2521 016126 
2522 016132 
016140 
2523 pelts 


4 

2535 016226 

016234 

2536 016236 

2537 016240 

2538 016242 

016250 

2539 016252 
2540 


CKFPBAO FPIIF FLTG PNT 
TEST 


194032 
000774 


104412 


PRT B 


000000 


000000 


177777 


177777 


MACRO M1111 
15$: 
16$: ERROR 
BR 
000000 DIVFT: .WORD 
CCCDONE : 
RSETUP 


000000 
000000 
000000 


1/7777 


000000 
000000 
000000 


177777 


+32 
13$ 


0,0.0,0 


B 6 
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;REPORT FPS INCORRECT. 


;GO INITIALIZE THE FPS AND STACK; AND 
;SEE IF THE USER HAS EXPRESSED 

THE DESIRE TO CHANGE THE SOF TWARE 
:VIRTUAL CONSOLE SWITCH oo (HAS 
; THE USER TYPED CONTROL G?) 


FLUE REAR ERA EREAEEAEEEERAEARAAEAREREERRARAEERRERRA EERE 


s*TEST 7 
'* 


t*THIS IS A TEST OF THE DIVD INSTRUCTION. NOTE THAT 


DIVD TEST 


A SUBROUTINE IS 


;*USED TO SET UP THE OPERANDS, EXECUTE THE INSTRUCTION AND CHECK THE RESULTS. 


. 
* 


FLERE RERARAERAREREEERRARERARERERRERAERRERERERREREH 


TST7: SCOPE 


hb TEST WITH POSITIVE OPERANDS AND IN ROUND MODE. 


LPERR 

JSR 
1$: WORD 
2$: . WORD 
3$: . WORD 
4$: 200 

200 
5$: . WORD 
6$: ERROR 
sDIVD WITH AC 
DDD2: 

LPERR 

JSR 
1$: . WORD 
2$: . WORD 
3$: . WORD 
4$: 207 

210 
5$: 9 
6$: ERROR 


PC a4D1VDSUB 
34277,0,0,0 


4027”.0,0.,0 
34200,0,0,0 


-1,°1,-1.°1 
+33 


NEGATIVE AND FSRC 


PC,a@4D1VDSUB 
134277,0,0,0 


40277,0.0,0 
134200,0,0,0 


-1,°1,°1,>1 
+33 


;SET UP THE LOOP ON ERROR ADDRESS. 
2AC 

zFSRC 

:RES 

FPS BEFORE EXECUTION. 


FPS AFTER EXECUTION. 
ERROR RES. 


POSITIVE IN TRUNCATE MODE. 
;SET UP THE LOOP ON ERROR ADDRESS. 
sAC 
ZF SRC 
;RES 
FPS BEFORE EXECUTION. 


SFPS AFTER EXECUTION. 
ERROR RESULT. 


SEQ 0066 


CKFPBAO FP11F FLTG PNT 
17 DIVD TEST 


2541 
2542 016254 
016254 
2543 016256 
2544 016262 
016270 
2545 gioers 
2546 016302 
016310 
2547 016312 
2548 016314 
2549 016316 
016324 
2550 016326 
2551 
2552 
2553 016330 
016330 
tte. 016332 
2555 016336 
016344 
2556 016346 
016354 
2557 016356 
016364 
2558 016366 
2559 016370 
2560 016372 
016400 
2561 016402 
2562 
2563 
2564 016404 
016404 
2565 016406 
2566 016412 
016420 
2567 016422 
016430 
2568 016432 


2572 016446 
016454 

527? 016456 

2574 

2575 

2576 

2577 016460 


016460 
2578 016462 
2579 016466 


016474 
2580 016476 
016504 


PRT B 


016614 
000000 


MACRO M1111 


000000 


000000 
000000 


177777 


000000 
000000 
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SEQ 0067 


eat, TEST WITH OPERANDS BOTH NEGATIVE AND IN TRUNCATE MODE. 


LPERR 
JSR 
1$: . WORD 
2$ . WORD 
3$ . WORD 
4$ 250 
240 
5$ . WORD 
6$: ERROR 
sDIVD WITH AC 
DDD4: 
LPERR 
JSR 
1$: s 
2s . WORD 
3$ . WORD 
4$ 207 
210 
S$ . WORD 
6$: ERROR 
4b TEST 
* — LPERR 
JSR 
1$: .WOR 
2s . WORD 
3$: . WORD 
™ | WORD 
4$: 7647 
7650 
5$: . WORD 
6$: ERROR 


:DIVD TEST WITH 
DDD6: 


LPERR 

JSR 
1$: . WORD 
2$ . WORD 


PC,DIVDSUB 
134300,0,0,1 


140300,0,0,0 
34200,0,0,0 


34200,0,0,1 
+35 


POSITIVE AND FSRC 


PC axD 1 VDSUB 
34300,0 


140300,0,0,0 
134200,0,0,1 


134200,0,0,0 
+36 


PC ,a4D1 VDSUB 
100400,0,0,0 


500,0,0.0 


140052,1252 
52 


2 
125252,125252 


5 
5 
-1,-1,-1,-1 
+33 


AC POSITIVE AND 


awe wom 


100500.0,0,0 


;SET UP THE LOOP ON ERROR ADDRESS. 
sAC 

sFSRC 

RES 

sFPS BEFORE EXECUTION. 

sFPS AFTER EXECUTION. 

;ERROR RES. 

; TRUNCATION ERROR. 

NEGATIVE IN ROUND MODE. 

;SET UP THE LOOP ON ERROR ADDRESS. 
ZAC 

sFSRC 

RES 

sFPS BEFORE EXECUTION. 

sFPS AFTER EXECUTION. 

;ERROR RES. 


ROUND ERROR. 


;SET UP THE LOOP ON ERROR ADDRESS. 
7AC 

7FSRC 

sRES 

FPS BEFORE EXECUTION, 


FPS AFTER EXECUTION. 
ERROR RES. 


FSRC NEGATIVE IN ROUND MODE. 

;SET UP THE LOOP ON ERROR ADDRESS. 
3AC 

7F SRC 


CKFPBAO FPIIF FLTG PNT PRT B 
17 DIVD TEST 


2581 016506 
2582 016512 
2583 016516 
2584 016520 
2585 016522 

016530 
2586 016532 
2587 


2588 
2589 016534 
6534 


594 5 

2595 o16562 

016570 
2596 016572 
2597 016574 
2598 016576 

016604 
2599 016606 
600 


2 
rd! 016610 


140052 
129836 


177777 


017054 


MACRO M1111 
3$: «WORD 140052,125252 ;RES 
«WORD 125252,125253 
4$: 7707 sFPS BEFORE EXECUTION. 
7710 ;FPS AFTER EXECUTION. 
177777 5$: «WORD =1,-1,-1,-1 ;ERROR RES. 
6$: ERROR +33 
;DIVD TEST. 
DDD?7: 
i.PERR ;SET UP THE LOOP ON ERROR ADDRESS. 
JSR @4D1VDSUB 


000000 


177777 


D 6 
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1$: . WORD 56860, 170360 ;AC 
“WORD 170360.170360 

2$: ‘WORD 170360.170360  ;FSRC 
“WORD  170360.170360 


3$: . WORD 40200,0.0.0 sRES 

4$: 7717 sFPS BEFORE EXECUTION. 
7700 sFPS AFTER EXECUTION. 

5$: . WORD -1,-1,-1,-1 sERROR RES. 

6$: ERROR +33 


JMP @4DDDDONE 


THIS SUBROUTINE, DIVDSUB, IS CALLED TO SET UP, 
7AND CHECK THE RESULT OF A DIVD INSTRUCTION. IT 


; JSR PC ,a4D1VDSUB 
: G: .WORD X,X,X,X 

; FSRCARG:.WORD X,X,X,X 

: >: «WORD = X,X,X,X 

: FPSB «WORD X 

; FPSA «WORD X 

: «WORD X,X,X,X 

: ERR ERROR +X 


:GO TO NEXT TEST. 


EXECUTE 


IS CALLED THUS: 


zAC_OPERAND 
:FSRC OPERAND 


EXPECTED RESULT 
FPS BEFORE EXECUTION 
SFPS AFTER EXECUTION 


ERROR RESULT 
;RESULT ERROR 


[RETURN ADDRESS 


STHE OPERANDS ARE SET UP (USING ACO FOR THE AC OPERAND). THEN 


3FPSB IS LOADED INTO THE FPS. THE INSTRUCTION, DIVD IS EXECUTED. 


SEQ 0068 


E_ 6 
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17 DIVD TEST SEQ 0069 
2620 ZAFTER THE EXECUTION THE RESULT IS CHECKED AGAINST THE 
262 “EXPECTED CORRECT RESULT, RES. IF IT IS CORRECT THEN THE FPS 
2622 ‘1S CHECKED WITH THE EXPECTED CORRECT FPS, FPSA. IF THE FPS WAS 
2623 ‘INCORRECT THEN IT IS REPORTED. IF THE RESULT WAS INCORRECT IT 
2624 [1S COMPARED WITH ERRES IN AN ATTEMPT TO ANALYSE THE ERROR. IF 
2625 [THE INCORRECT RESULT MATCHED ERRES THEN CONTROL IS PASSED TO 
2626 ‘THE ERROR CALL AT ERR. IF THE INCORRECT RESULT DID NOT MATCH ERRES 
2627 STHEN THE FAILURE IS REPORTED IN DIVDSUB AND CONTROL IS PASSED TO 
2628 =CONT. IF NO ERRORS ARE DETECTED THEN DIVDSUB RETURNS CONTROL 
2629 >TO CONT. 
2631 016614 012601 DIVDSUB: MOV (SP)+,Ri ;GET A POINTER TO THE ARGUMENTS. 
2632 016616 012700 000200 MOV #200,R0 :SET FD MODE. 
2633 016622 170100 LDFPS RO 
2635 016624 010100 MOV R1,RO0 ;SET UP THE ACO OPERAND. 
016626 172410 LDD (RO) ,ACO 
2637 016630 016100 000030 MOV 30(R1) RO :LOAD THE FPS. 
2638 016634 170100 LDFPS RO 
2640 016636 012737 016652 001236 MOV #1$, a4$TMP2 
2641 016644 010100 MOV R1,RO sESTABLISH A POINTER TO FSRC. 
s642 016646 062700 000010 ADD #10,RO 
sore 016652 174410 1$: DIVD (RO) ,ACO sEXECUTE THE TEST INSTRUCTION. 
2646 016654 170204 STFPS RG sGET THE FPS. 
2647 016656 012700 000200 MOV #200,RO =SET FD MODE. 
2648 016662 170100 LDFPS RO 
2650 016664 012700 017044 MOV #DIVDT,RC ;GET THE RESULT. 
2651 016670 174010 STD ACO, (RO) 
2653 016672 010102 MOV R1,R2 SAVE DATA IN CASE OF ERROR. 
2654 016674 070237 001240 MOV R2. aASTMP3 
2655 016700 062702 009010 ADD #10,R2 
2656 016704 010237 001242 MOV R2, aA$TMP4 
2657 016710 062702 000010 ADD #10,R2 
2658 016714 010237 001244 MOV R2, a4STMPS 
2659 016720 012737 017044 001246 MOV #DIVDT, a#STMP6 
2660 016726 010437 001250 MOV R4, aHSTMP7 
2661 016732 016137 000032 001252 MOV 32(R1) ,a#$TMP10 
2663 016740 010102 MOV R1,R2 =CHECK THE RESULT. 
2664 016742 062702 000020 ADD #20,R2 
2665 016746 012703 017044 MOV #DIVDT,R3 
2666 016752 012705 000004 MOV #4 R5 
2667 016756 022223 2$: CMP (R2)+, (R3)+ 
2668 016760 001006 BNE 10$ ;BRANCH IF RESULT INCORRECT. 
2669 016762 077503 SOB R5,2$ 
2671 016764 026104 000032 CMP 32(R1),R4 :1S FPS CORRECT? 
2672 016770 001023 BNE 15$ ‘BRANCH IF INCORRECT. 
2673 016772 000161 000046 JMP 46(R1) RETURN. 
2675 016776 010102 10$: MOV R1,R2 sWAS INCORRECT RESULT ANTICIPATED? 


2676 017000 062702 000034 ADD #34 ,R2 
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2677 017006 012703 017044 MOV ADIVDT,R3 
2678 017010 012705 000004 MOV #4 ,R5 
2679 017014 022223 11$: CMP (RD) +, (R3)+ 
017016 001005 BNE 12$ ;BRANCH IF NO. 
2681 017020 077503 S08 RS5,11$ 
2682 017022 010102 MOV R1,R2 ;IF THE INCORRECT RESULT WAS 
2683 017024 062702 0000464 ADD ryaA R2 ZANTICIPATED RETURN TO THE 
2684 ;ERROR REPORT IN THE CALLING 
2685 017030 000112 JMP (R2) ROUTINE. 
2687 017032 12$: ;REPORT RESULT INCORRECT. 
2688 017032 104033 13$: ERROR +33 
oe 017034 000161 000046 14$: JMP 46(R1) 
2691 017040 15$: ;REPORT FPS INCORRECT. 
2692 017040 104034 16$: ERROR +34 
od 017042 000774 BR 14$ 
2695 017044 000000 000000 000000 DIVDT: .WORD 0,0,0,0 
017052 000000 
2696 
2697 017054 DDDDONE : 
017054 104412 RSETUP 3;GO INITIALIZE THE FPS AND STACK; AND 
;SEE IF THE USER HAS EXPRESSED 
: THE DESIRE TO CHANGE THE SOF TWARE 
;VIRTUAL CONSOLE SWITCH REGISTER (HAS 
; THE USER TYPED CONTROL G?). 
2698 
2699 
2707 
2708 2 RT TT TI RRR EE RRR REE REE ERE EERE RR 
TEST 10 MULF TEST 


“THIS IS A TEST OF THE MULF INSTRUCTION. IT MAKES USE OF A SUBROUTINE 
:*TO SET UP THE OPERANDS, EXECUTE THE MULF INSTRUCTION AND CHECK THE 


> *RESULTS. 
Peretti tiitit ttt titties i titi titi iii ii titi iii tii tiiiii iii iii irr, 
- 017056 000004 1ST10: SCOPE 
2710 :MULF WITH (FSRC=AC=0) 
2711 017060 EEE1: 
017060 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
017640 JSR PC, @#MULF SUB 
000000 1$: -WORD 0,0 ZAC 
000000 2$: “WORD 0,0 *FSRC 
000000 3$: “WORD 0,0 RES 
4$: 7517 [FPS BEFORE EXECUTION. 
7504 “FPS AFTER EXECUTION. 
177777 5$: .WORD =1,-1 
6$: ERROR +37 
sMULF WITH (FSRC=0). 
FEE2: 
LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
017640 JSR PC, F 


@A4MUL F SUB 
034435 1$: . WORD 71625, 34435 ZAC 





2725 017126 
2726 017132 
2727 017136 
2728 017140 
2729 017142 
2730 017146 
2731 
2732 
2733 017150 
017150 
2734 017152 
2735 017156 
2736 017162 


$e 017202 

2743 

2744 017204 
017204 


2745 017206 
2746 017212 


2751 017232 

2752 017236 

2753 

2754 

2755 017240 
7240 

2756 017242 


2 

Sez 017272 
2765 

2766 

2767 017274 


17274 
2768 017276 


2775 017326 
2776 
2777 


a FPIIF 4 PNT 
MULF TES 


PRT B 


000000 
000000 


177777 
017640 
000000 
153443 
000000 


177777 


177777 


177777 


000372 
177777 
000000 
177777 


177777 


017640 
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0,0 
0,0 


-1,-1 
+37 


PC, @MUL F SUB 


6 
071625, 153443 


o 


-1,-1 
+37 


POSITIVE AND FSRC 


PC ,Q4MULF SUB 


40177,-1 


140177,-1 
+41 


POSITIVE AND FSRC 


PC ,MULF SUB 
40177,-1 
40200.0 
40177,-1 


MACRO M1111 
2$: . WORD 
3$: . WORD 
4$: 13 
4 
5$: . WORD 
6$: ERROR 
MULF WITH (AC=0) 
LPERR 
JSR 
1$: . WORD 
2$: WORD 
3$: . WORD 
4$: 7500 
7504 
5$: . WORD 
6$: ERROR . 
MULF WITH AC 
LPERR 
JSR 
1$: . WORD 
2$: . WORD 
3$: . WORD 
4$: 1 
0 
5$: . WORD 
6$: ERROR 
MULF WITH AC 
LPERR 
JSR 
1$: . WORD 
2$: . WORD 
3$: . WORD 
4$: 40 
40 
5$: . WORD 
6$: ERROR 


37777 ,-1 
+42 


sFSRC 


;RES 

FPS BEFORE EXECUTION. 
3FPS AFTER EXECUTION. 
ERROR RES. 


SET UP THE LOOP ON ERROR ADDRESS. 


ZAC 

sFSRC 

RES 

sFPS BEFORE EXECUTION. 


FPS AFTER EXECUTION. 
TERROR RES. 


POSITIVE IN ROUND MODE. 


SET UP THE LOOP ON ERROR ADDRESS. 


AC 

ZF SRC 

RES 

sFPS BEFORE EXECUTION. 
sFPS AFTER EXECUTION. 


ERROR RES. 
;BAD SIGN. 


POSITIVE IN TRUNCATE MODE. 


;SET UP THE LOOP ON ERROR ADDRESS. 


AC 

sF SRC 

RES 

sFPS BEFORE EXECUTION. 

sFPS AFTER EXECUTION. 

TERR OR RE 

7ST 252 TO “044 INTO 444 (SUT Y62) 
MUL. NORMALIZATION FAILURE. 


OPERANDS POSITIVE NORMALIZE TEST. 


PC ,@4MULF SUB 
40100,0 


40100.0 
40020.0 


42040,0 
+43 


SET UP THE LOOP ON ERROR ADDRESS. 


sAC 

F SRC 

RES 

;FPS BEFORE EXECUTION. 

ZFPS AFTER EXECUTION. 

;ERROR RES. 

7ST 252 TO 444 INTO 042 (BUT Y62) 
‘MUL . NORMALIZATION FAILURE. 


SEQ 0071 | 





2778 

2779 017330 
17330 

2780 017332 

























2795 017406 
2 % 017410 
2/97 017412 
2798 017416 
2799 


2800 

2801 017420 
017420 

2802 017422 


2807 017444 
2808 017446 
2809 017452 
2810 


2811 

2812 017454 
017454 

2813 017456 


2829 017534 


CKFPBAO FPITIF FL 
110 MULF TES 


H 
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SEQ 0072 


ee WITH BOTH OPERANDS POSITIVE IN ROUND MODE. 


> MULF 
EEE10 


ara BOTH OPERANDS NEGATIVE IN ROUND MODE. 


2$: 


;SET UP THE LOOP ON ERROR ADDRESS. 
as @4MUL F SUB 


6 3AC 
23652,125252 sFSRC 
3177,-1 ;RES 

sFPS BEFORE EXECUTION. 
sFPS AFTER EXECUTION. 


-1,-1 
+37 


POSITIVE AND FSRC NEGATIVE IN ROUND MODE. 


;SET UP THE LOOP ON ERROR ADDRESS. 
PC, 34MULF SUP 
40342,0 ZAC 

ZF SRC 


176542,0 
176707,102000 ;RES 
FPS BEFORE EXECUTION. 
FPS AFTER EXECUTION. 
76507, 102000 ERROR RES. 
+41 ;BAD SIGN. 


NEGATIVE AND FSRC POSITIVE IN ROUND MODE. 


;SET UP THE LOOP ON ERROR ADDRESS. 


PC ,@4MULF SUB 

140200,0 sAC 

7417,7417 ZF SRC 

107417,7417 sRES 
FPS BEFORE EXECUTION. 
FPS AFTER EXECUTION. 

7417,7417 ;ERROR RES. 

+41] ;BAD SIGN. 


OPERANDS NEGATIVE IN ROUND MODE. 
:SET UP THE LOOP ON ERROR ADDRESS. 


PC, QAMULF SUB 

144600. 0 ZAC 

-154000,0 ZF SRC 

60400,0 sRES 
sFPS BEFORE EXECUTION. 
sFPS AFTER EXECUTION. 

160400,0 ERROR RES. 

+41 ;BAD SIGN. 


;SET UP THE LOOP ON ERROR ADDRESS. 


PC ,@#MULF SUB 

140500,0 ZAC 
160000, 1 =F SRC 
60100,2 


sRES 
FPS BEFORE EXECUTION, 
FPS AFTER EXECUTION, 


CKFPBAO FPIIF FLTG PNT 
110 MULF TEST 


2830 017536 060100 

2831 017542 104044 

2832 

2833 

2834 017544 
017544 

2835 Bi fee8 004 


$e? 017632 104044 
tq 017634 000167 


2883 017640 012601 
2884 017642 012700 


PRT B 


000001 


017640 
000001 
000000 
000001 


000001 


000002 


900224 


000200 


I_ 6 
MACRO M1111 18=SEP=79 13:43 PAGE 13-4 


5$: -WORD 60100,1 ERROR RES. 

6$: ERROR +44 ROUND FAILURE. 

gees WITH AC POSITIVE AND FSRC NEGATIVE IN TRUNCATE MODE. 
LPERR ;SET UP THE LOOP ON ERROR ADDRESS. 
JSR A: ar 

1$: . WORD AC 

2$: . WORD 120306, ; “F SRC 

3$: «WORD 160100,1 i RES 

4$: 7547 FPS BEFORE EXECUTION. 
7550 SFPS AFTER EXECUTION. 

5$: «WORD 160100,1 TERROR RES. 

6$: ERROR +45 ; TRUNCATION ERROR. 

iebis WITH AC POSITIVE AND FSRC POSITIVE IN ROUND MODE. 
LPERR ;SET UP THE LOOP ON ERROR ADDRESS. 
JSR PC, @4MULF SUB 

1$: -WORD 40277,0 sAC 

2$: -WORD 60000,1 ZF SRC 

3$: WORD 60077,1 sRES 

4$: 14 FPS BEFORE EXECUTION. 
0 FPS AFTER EXECUTION. 

5$: -WORD 60077,2 ERROR RES. 

6$: ERROR +44 ;ROUND FAILURE. CONSTANT BAD. 


JMP EEEDONE ;GO TO THE NEXT TEST. 


THIS SUBROUTINE, MULFSUB, IS CALLED TO SET UP, EXECUTE 
TAND CHECK THE RESULT OF A MULF INSTRUCTION. If IS CALLED THUS: 


: JSR PC, @4MULF SUB 

3 ACARG: .WORD X,X AC _OPERAND 

3 FSRCARG:.WORD X,X :FSRC OPERAND 
RES: -WORD X,X sEXPECTED RESULT 
FPSB: “WORD X FPS BEFORE EXECUTION 
FPSA: «WORD X FPS AFTER EXECUTION 
ERRES: .WORD X,X ERROR RESULT 
ERR: ERROR +X RESULT ERROR 

T RETURN ADDRESS 


>THE OPERANDS ARE SET UP (USING ACO FOR THE AC OPERAND). THEN 
;FPSB IS LOADED INTO THE FPS. THE INSTRUCTION, MULF IS EXECUTED. 
AFTER THE EXECUTION THE RESULT IS CHECKED AGAINST THE 
EXPECTED CORRECT RESULT, RES. IF IT IS CORRECT THEN THE FPS 
:IS CHECKED WITH THE EXPECTED CORRECT FPS, FPSA. IF THE FPS WAS 
; INCORRECT THEN IT IS REPORTED. IF THE RESULT gl INCORRECT IT 

1S COMPARED WITH ERRES IN AN ATTEMPT TO ANALYSE THE ERROR. 

THE INCORRECT RESULT MATCHED ERRES THEN CONTROL IS PASSED TO 
>THE ERROR CALL AT ERR. IF THE INCORRECT RESULT DID NOT MATCH ERRES 
THEN THE FAILURE IS REPORTED IN MULFSUB AND CONTROL IS PASSED TO 
SCO led NO ERRORS ARE DETECTED THEN MULFSUB RETURNS CONTROL 


MUL F SUB: MOV (SP)+,R1 
MOV #200,R0 ;SET FD MODE 


— 


;GET A POINTER TO THE ARGUMENTS. 


SEQ 0073 





_ FP11F FLTG PNT 
T10 MULF TEST 


2885 017646 
2886 017650 
2887 017652 
2888 017654 
2889 017660 
2890 017662 
2891 017670 
2892 017672 
289% 017676 
2895 | 
2896 017700 
2897 017702 
2898 017706 
2899 


2900 017710 
2901 017714 


2902 
2903 017716 
2904 017720 


BYYBBYYy 
NOWUSWN Oo 


2918 020002 
9 020006 


012700 
174010 


010102 


010102 


062702 
000112 


104037 
000161 


104040 
000774 


000000 
000000 


PRT B 


000014 
017676 
000004 


000200 


020054 


000024 


000026 


000000 


MACRO M1111 


001236 


001246 
001252 


000012 


000022 


000000 MULFT: 


10$: 
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LDFPS 
MOV 


ERROR 
BR 


. WORD 


RO 

R1.RO 

(RO) ,ACO 
1ecRi), =RO 
#1$, a"STMP2 
R1,RO 

#4 "RO 

(RO) ,ACO 


R4 
#200,R0 
RO 


#MULFT ,RO 
ACO, (RO) 


16(R1) , a#$TMP10 


ay 
2(RO),12(R1) 
10$ 


16(R1) ,R4 
d6¢R1) 

(RO) ,20(R1) 
d(RO) .22(R1) 
11$ 


R1,R2 
(R2) 


+37 
26(R1) 


+40 
13$ 


0,0,0.0 





SEQ 0074 


;LOAD THE AC GPERAND. 
;LOAD THE FPS 


sESTABLISH A POINTER TO FSRC. 
7 TEST INSTRUCTION. 

;GET THE FPS. 

SET FD MODE 

;GET THE RESULT OF THE MULF. 


SAVE THE DATA IN CASE OF ERROR. 


:1S THE RESULT CORRECT? 
IF INCORRECT BRANCH. 


:1S FPS CORRECT? 
IF INCORRECT BRANCH 
IF NO ERRORS OCCURRED RETURN. 


:DOES THE INCORRECT RESULT 
[MATCH THE ANTICIPATED INCORRECT RESULT. 


;BRANCH IF NO. 


71T MATCHED SO RETURN TO THE ERROR 
REPORT AT THE CALLING ROUTINE. 


REPORT RESULT INCORRECT. 


REPORT FPS INCORRECT. 
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MULF TEST SEQ 0075 
2941 
2942 020064 EEEDONE : 
020064 104412 RSETUP :GO INITIALIZE THE FPS AND STACK; AND 
;SEE IF THE USER HAS ag 
; THE DESIRE TO CHANGE THE SOF TWARE 
[VIRTUAL CONSOLE SWITCH a (HAS 
;THE USER TYPED CONTROL G?) 
2943 
2944 
2952 
2953 DISA EOIO I OIOIUISIOISIIISIDIIIDIOIDIOISIOISISISIDIOIDIOIDIOIUIDIIOIIDIDIDIDIDIDIIDIOIOIDIOITIIDII SII 
z*TEST 11 MULD TEST 


-% 

:*THIS IS A TEST OF THE MULD INSTRUCTION. NOTE THAT A SUBROUTINE IS 
:*USED TO SET UP THE OPERANDS, EXECUTE THE MULD INSTRUCTION AND 
;*CHECK THE RESULTS. 


-* 
THIER IIIS ISOS IOSIIIDIIIIIIIISISIIOOIOIOIIIUIODIDIIUIUINIOIIO IIE 
2956 020066 000004 TST11: SCOPE 
2955 ;MULD TEST WITH AC POSITIVE AND FSRC POSITIVE. ‘ 
2956 020070 FFF: 
020070 104413 LPERR ;SET UP THE LOOP ON ERROR ADDRESS. 
2957 020072 004737 020354 JSR PC, @4MULDSUB 
2958 020076 040200 000000 000000 1$: -WORD 40200,0,0,0 zAC 
020104 000000 
2959 020106 023777 177777 177777 2%: «WORD 23777,-1,-1,-1 ;FSRC 
020114 177777 
2960 020116 023777 177777 177777 3%: -WORD 23777,-1,-1,-1 ;RES 
020124 177777 
2961 020126 000217 4$: 217 FPS BEFORE EXECUTION. 
2962 020130 000200 200 FPS AFTER ECECUTION. 
2963 020132 023777 177777 000000 5$: -WORD 23777,-1,0,0 ERROR RES. 
020140 000000 
2964 020142 104047 6$: ERROR +47 ;BAD CONSTANT USED IN ALGORITHM 
2965 ;USED 24 INSTEAD OF 56. 
sMULD TEST WITH BOTH OPERANDS POSITIVE TRUNCATION TEST. 
2968 020144 FFF: 
020144 104413 LPERR ;SET UP THE LOOP ON ERROR ADDRESS. 
2969 020146 004767 000202 JSR PC ,MULDSUB 
2970 020152 065400 900000 000000 1$: -WORD 65400.0,0,1 sAC 
020160 000001 
2971 020162 037577 177777 177777 2%: -WORD 37577,-1,-1,-2 ;FSRC 
020170 177776 
2972 020172 064777 177777 177777 38: «WORD 64777,-1,-1,-1 ;RES 
020200 177777 
2973 020202 000247 é 4$: 247 :FPS BEFORE EXECUTION. 
2974 020204 000240 240 FPS AFTER EXECUTION. 
2975 020206 065000 000000 000000 5$: -WORD 65000,0.,0,0 ERROR RES. 
020214 000000 
te 020216 104050 6$: ERROR +50 ; TRUNCATION ERROR. 
2978 ;MULD TEST WITH BOTH OPERANDS NEGATIVE IN ROUND MODE. 
2979 020220 FFF 3: 
026220 104413 LPERR ;SET UP THE LOOP ON ERROR ADDRESS. 
2980 020222 004737 020354 JSR PC ,@4MULDSUB 
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CKFPBAO FP1IF FLTG PNT 
11) EST 


MULD T SEQ 0076 


2981 020226 137577 177777 177777 18: WORD = 137577,-1,-1.-2 :AC 
020234 177776 

2982 020236 165400 000000 000000 2s: WORD 165400,0,0,1 —: FSRC 
020244 000001 


2983 020246 065000 000000 000000 3$: -WORD 65000,0,0,0 sRES 
020254 000000 
2984 020256 007717 4$: 7717 :FPS BEFORE EXECUTION. 
2985 020260 007700 7700 sFPS AFTER EXECUTION. 
020262 064777 177777 177777 S$: -WORD 64777,-1,-1,-1 ;ERROR RES. 


020270 
2987 020272 104051 6$: ERROR +51 ROUND ERROR. 


2989 ;MULD ~=TEST WITH AC POSITIVE AND FSRC NEGATIVE IN ROUND MODE. 
2990 020274 FFF: 

020274 104413 LPERR ;SET UP THE LOOP ON ERROR ADDRESS. 
2991 020276 004737 020354 JSR PC 0 OOO 
2992 020302 017500 000000 000000 1$: -WORD 17500,0,0,0 sAC 

020310 000000 





2993 020312 123652 125252 2$: -WORD 123652,125252 ;FSRC 
2994 020316 125252 125252 «WORD 125252,125252 
2995 020322 103177 177777 177777 38: «WORD 103177,-1,-1,-1 ;RES 


2996 020332 000200 4$: 200 :FPS BEFORE EXECUTION. 
2997 020334 000210 210 FPS AFTER EXECUTION. 
2998 020336 103200 000000 000000 5$: -WORD 103200,0,0,0 ERROR RES. 


000000 
2999 020346 104052 6$: ERROR +52 ;ROUND ERROR (BAD CONSTANT). 
3001 020350 000167 000240 JMP F FF DONE 


3003 THIS SUBROUTINE, MULDSUB, IS CALLED TO SET UP, EXECUTE 

ie sAND CHECK THE RESULT OF A MULD INSTRUCTION. IT IS CALLED THUS: 
3006 ; J PC, 

3007 ; ACARG: .WORD X,X,X,X ey! OPERAND 

3008 ; FSRCARG:.WORD X,X,X,X SRC OPERAND 

3009 RES: «WORD X,X,X,X #EXPECTED RESULT 
3010 : FPSB: .WORD X FPS BEFORE EXECUTION 
3011 ; FPSA: .WORD X TFPS AFTER EXECUTION 
3012 : ERRES: .WORD X,X,X,X TERROR RESULT 

3013 : ERR: ERROR +X [RESULT ERROR 

ois : CONT: RETURN ADDRESS 
3016 3 THE OPERANDS ARE SET UP (USING ACO FOR THE AC OPERAND). THEN 

3017 FPSB IS LOADED INTO THE FPS. THE INSTRUCTION, MULD IS EXECUTED. 
3018 AFTER THE EXECUTION THE RESULT IS CHECKED AGAINST THE 

3019 EXPECTED CORRECT RESULT, RES. IF IT IS CORRECT THEN THE FPS 

3020 71S CHECKED WITH THE EXPECTED CORRECT FPS, FPSA. IF THE FPS WAS 
3021 S INCORRECT THEN IT IS REPORTED. IF THE RESULT WAS INCORRECT IT 
3022 [1S COMPARED WITH ERRES IN AN ATTEMPT TO ANALYSE THE ERROR. IF 

3023 THE INCORRECT RESULT MATCHED ERRES THEN CONTROL IS PASSED TO 

3024 THE ERROR CALL AT ERR. IF THE INCORRECT RESULT DID NOT MATCH ERRES 
3025 THEN THE FAILURE IS REPORTED IN MULDSUB AND CONTROL IS PASSED TO 
368 :CONT. IF NO ERRORS ARE DETECTED THEN MULDSUB RETURNS CONTROL 


3028 
3029 020354 012601 





MUL D SUB : MOV (SP)+,R1 





;GET A POINTER TO THE ARGUMENTS. 





CKFPBAO FP11F FLTG PNT 
1 MULD TEST 


3030 020356 
3031 020362 
3033 020364 


3034 020366 
3035 020370 
eee 020374 


3058 020466 


3067 020522 
3068 
3069 020524 


3082 
3083 020570 
3084 


3085 020572 
3086 020572 


012700 
170100 


012737 
010100 
062700 


171010 


012700 
174010 
010102 


016137 
010102 
06 


010102 
062702 


PRT B 


000200 


000030 


020412 
000010 
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V #200,R0 
LDFPS RO 
MOV R1,RO 
LDD (RO) ,ACO 
MOV 30(R1),RO 
LDFPS RO 

001236 MOV #1$, a#STMP2 
MOV R1,RO 
ADD #10,RO 
1$: MULD _— (RO) ,ACO 

STFPS RG 

V #200,R0 
LDFPS RO 


MOV AMULDT ,RO 
STD ACO, (RO) 


MOV -R2 
MOV R2, aASTMP3 
ADD 0,R2 
MOV R2,@#$TMP4 
ADD #10,R2 
MOV R2,@ASTMPS 
001246 MOV A#MULDT , AASTMP6 
MOV R4 ,a4$STMP7 
001252 MOV 32(R1) ,a@#$TMP10 
MOV R1,R2 
ADD #20,R2 
MOV A#MULDT .R3 
MOV #4 ,R5 
2$: CMP (R2)+,(R3)+ 
BNE 10$ 
SOB R5,2$ 
CMP 32(R1) ,R4 
BNE 
JMP 46(R1) 
10$: MOV R1,R2 


MOV #4,R5 
11$: CMP (R2)+, (R3)+ 
BNE 12$ 
SOB R5,11$ 
MOV R1_R 
ADD #44,R2 
JMP (R2) 


12$: 
13$: ERROR +246 


SET FD MODE. 


;SET UP THE ACO OPERAND. 
;LOAD THE FPS. 


ESTABLISH A POINTER TO FSRC. 


EXECUTE THE TEST INSTRUCTION. 
;GET THE FPS. 

;SET FD MODE. 

;GET THE RESULT. 


;SAVE DATA IN CASE OF ERROR. 


;CHECK THE RESULT. 


;BRANCH IF RESULT INCORRECT. 


71S FPS CORRECT? 
;BRANCH IF INCORRECT. 
;RETURN. 


WAS INCORRECT RESULT ANTICIPATED? 


;BRANCH IF NO. 


31F THE INCORRECT RESULT WAS 
ZANTICIPATED RETURN TO THE 
ERROR REPORT IN THE CALLING 


REPORT RESULT INCORRECT. 


SEQ 0077 


CKFPBAQ FP11F FLTG PNT 
111 MULD TEST 


3087 020574 

3088 

3089 020600 

3090 020600 

3091 020602 

3092 

3093 020604 
020612 


3094 
3095 020614 
020614 


3109 
3110 
3111 
3112 
3113 
3114 
3115 
3116 O 
3117 0. 
3118 
3119 

3 


1 
1 
1 
1 
1 
1 
1 
1 
: 
1 
1 
1 
312 
1 
1 
312 


3134 020714 


000161 


104046 
000774 


000000 
000000 
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000046 14$: JMP 46(R1) 


15$: ;REPORT FPS INCORRECT. 
16$: ERROR +46 
BR 14$ 


000000 000000 MULDT: .WORD 0,0,0.,0 


FFF DONE: 
RSE TUP :G0 INITIALIZE THE FPS AND STACK; AND 


O CHANGE THE SO 
;VIRTUAL CONSOLE SWITCH REGISTER (HAS 
; THE USER TYPED CONTROL G?). 


TEST TITLE:UNDER/OVERFLOW, USING MULF WITH TRAPS DISABLED 


SAREE ERE REE EEK EER EKER EERE 


s*TEST 12 SEE COMMENT ABOVE FOR TEST TITLE 


2a 

;*THIS IS A TEST OF THE OVERFLOW AND UNDERFLOW CONDITIONS USING 
3*THE MULF INSTRUCTION WITH TRAPS DISABLED. NOTE THAT A SUBROUTINE 
:*IS USED TO SET UP THE OPERANDS, EXECUTE THE MULF INSTRUCTION AND 
> *CHECK THE RESULTS. 

-* 


° 
FLERE REE REE EEE ERE EER EERE 


TST12: SCOPE 
1h homme WITH EXPONENT OF RESULT = -129 


;SET UP THE LOOP ON ERROR ADDRESS. 
021044 PC ,Q@AOVUNFNT 
000000 : 20200,0 AC 
0000.0 *FSRC 
sRES 
SERROR RES. 
FPS BEFORE EXECUTION. 
:EPS AFTER EXECUTION. 


ZFLAG 
:ST 331 TO 155 INTO 115 (BUT FIU) 


ErLeM, WITH EXPONENT OF RESULT = -193 


:SET UP THE LOOP ON ERROR ADDRESS. 
PC, @4OVUNFNT 
10200,0 
100000 “FSRC 


0 RES 

10000.0 “ERROR RES. 
[FPS BEFORE EXECUTION. 
“FPS AFTER EXECUTION, 


SEQ 0078 





CKEPBAO FPITF FLTG PNT PRT B MACRO M1111 
T12 SEE COMMENT ABOVE FOR TEST TITLE 
3135 020716 000012 6$: 
3136 020720 177777 
3137 020722 104120 7$: 
3139 020724 000401 
3140 020726 106114 
3141 020730 Bs: 
3142 
3143 
3144 020730 
020730 104413 
3145 020732 004737 021044 
3146 020736 060200 18: 
3147 020742 060000 2$: 
3148 020746 000000 000000 3$: 
3149 020752 060000 000000 4$: 
3150 020756 000000 5$: 
3151 020760 000006 
3152 020762 000010 6$: 
3153 020764 
3154 020766 104121 7$: 
3155 020770 000401 
3156 020772 104113 
3157 020774 8s: 
3158 
3159 
3160 020774 
020774 104413 
3161 020776 004737 021044 
3162 021002 060200 000000 1$: 
3163 021006 060200 000000 2s: 
3164 021012 000000 000000 3$: 
3165 021016 177777 (177777 4$: 
166 021022 006011 5$: 
3167 021024 
3168 021026 000010 6S: 
3169 021030 ¢ 
$170 021032 104122 7$: 
3172 021034 01 
3173 021036 104113 
3174 021040 000167 000410 8S: 
3175 
3176 


WLNWWNIWAANIWAWANWAWAS 
ee ek ed ed ed od od a os 
SRERARAVAS IAD 


nt EXPONENT OF RESULT = 


THIS SUBROUTINE, OVUNFNT, 


B 
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y 
ERROR 


BR 
ERROR 


+120 


8$ 
+114 


PC Ow pte 
60200 


0. mee 
60000,0 


+121 
8$ 
+113 


PC, @#OVUNFNT 
60200,0 
60200.0 


0, 
-i,-1 


I] IDONE 


sFEC 


sFLAG 
;SETTING FIUV OR FIV CAUSES TRAP 
sWITH FIU CLEAR. 


128 
SET UP THE LOOP ON ERROR ADDRESS. 


AC 

sFSRC 

sRES 

sERROR RES. 

sFPS BEFORE EXECUTION. 
aA AFTER EXECUTION. 


sFLAG 
:ST 333 TO 136 INTO 116 (BuT FIV). 


= 130 


;SET UP THE LOOP ON ERROR ADDRESS. 


3AC 

sFSRC 

;RES 

;ERROR RES. 

7FPS BEFORE EXECUTION. 
ZEPS AFTER EXECUTION. 


7FLAG 
sSETTING FIUV OR FIU WITH 
FIV CLEAR CAUSES TRAP. 


:GO TO NEXT TEST. 


IS USED TO SET UP THE OPERANDS, EXECUTE 


[THE MULF INSTRUCTION AND CHECK THE RESULTS OF AN INSTRUCTION WITH 
SOPERANDS WHICH va RESULT IN EITHER OVERFLOW OR UNDERFLOW. A CALL 


:T0 IT IS MADE T 


Se Be Be Be Be Be Be Be 


ACARG: .WORD 
F SRCARG: . WORD 
RES: . WORD 
ERRES: .WORD 

SB: . WORD 
FPSA: . WORD 
FEC . WORD 


oy! af tron 

OPERAND 
‘EXPECTED RESULT 
ERROR RESULT 
:FPS BEFORE EXECUTION 


[FPS AFTER EXECUTION 
SEXPECTED FEC 


SEQ 0079 


-—o 


C 
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Tl2 SEE COMMENT ABOVE FOR TEST TITLE SEQ 0080 
3190 : FLAG: .WORD xX 30/=1,0VER/UNDER FLOW FLAG 
3191 ; ERR1: ERROR +X ; TRAP ERROR. 

3192 ; BR CONT 
3193 : ERR2: ERROR +X DATA, RESULT — 
$198 : CONT: [RETURN ADDRESS 
3196 ; THE OPERANDS ARE SET UP (USING ACO AS THE ACCUMULATOR). THEN 
3197 :THE MULF INSTRUCTION IS EXECUTED. IF NO TRAP OCCURS THEN THE 
3198 ;RESULT IS CHECKED AGAINST RES. IF THE RESULT IS CORRECT THEN THE FPS IS 
3199 ;COMPARED WITH FPSA_IF THIS TOO IS CORRECT OVUNFNT dpe CONTROL 
3200 :TO THE CALLING ROUTINE AT CONT. IF THE FPS IS BAD OVUNFNT 
3201 [REPORTS THIS FAILURE AND THEN RETURNS TO CONT. IF THE dg OF THE 
3202 SMULF IS INC CT, NCORRECT RESULT IS COMPARED WITH THE 
3203 ANTICIPATED FAILING DATA P. RN, ES. IF THE FAILURE IN 
7TH UL ANTICIPATED CORRECTLY TO BE ERRES THEN OVUNFNT 
3205 ;WILL TRANSFER CONTROL RROR L_AT ERR2. OTHERWISE THE 
3206 RESULT WAS INCORRECT BUT WAS NOT ANTICIPATED AND OVUNFNT WILL 
3207 REPORT THE FAILURE AFTER WHICH CONTROL WILL BE PASSED TO CONT. 
3208 71F A TRAP OCCURS (IT SHOULD NOT) THEN OVUNFNT a READ THE FEC. 
3209 ;SHOULD THE FEC MATCH THE ANTICIPATED FEC OVUNFNT WILL 
3210 STORE ALL DATA AND TRANSFER CONTROL TO THE ERROR CALL AT ERR1. IF THE 
3211 sFEC 1S NOT THE SAME AS THE ANTICIPATED FEC OVUNFNT WILL REPORT 
3212 ; THE ERROR AND RETURN TO CONT. NOTE THAT OVUNFNT USES THE FLAG 
3213 :TO TELL WHETHER OR NOT THESE PARTICULAR OPERANDS WILL RESULT IN 
ah [UNDERFLOW (FLAG==1) OR OVERFLOW (FLAG=0). 
3216 021044 012601 OVUNF NT : MOV (SP)+,R1 ;GET A POINTER TO THE ARGUMENTS. 
3217 021046 012700 000200 MOV #200,R0 SET FD MODE. 
$515 021052 170100 LDFPS RO 
3220 021054 010100 MOV R1,RO ;LOAD ACO, OPERAND. 
$555 021056 172410 LDD (RO) ,ACO 
3223 021060 010102 MOV R1,R2 SAVE THE DATA PATTERNS IN CASE OF 
3224 021062 010237 001240 MOV Re, avSTMP3 ; ERROR. 
3225 021066 062702 000004 ADD R2 
3226 021072 010237 001242 MOV Ro. a4$STMP4 
3227 021076 062702 000004 ADD #4 ,R2 
3228 021102 010237 001244 MOV R2, a#STMPS 
3229 021106 016137 000022 001252 MOV 22(R1) ,a#STMP10 
Se 021114 012737 021444 001246 MOV #OVFNTT ,a#$STMP6 
3232 021122 016100 000020 MOV 20(R1) ,RO ;LOAD THE FPS. 
3233 021126 170100 LDFPS RO 
3234 021130 012737 021152 001236 MOV #1$,a#$STMP2 
Se 021136 012737 021336 000244 MOV #25$, AMF PVECT eT eon FP TRAP VECTOR IN CASE 
3237 021144 010100 MOV R1,RO ; COMPUTE THE ADDRESS OF FSRC. 
ee 021146 062700 000004 ADD #4 RO 
at 021152 171010 1$: MUL F (RO) ,ACO TEST INSTRUCTION. 
3242 021154 170204 2$: STFPS R4 GET FPS. 
3243 021156 170305 STST R5 iGET FEC. 
3244 021160 012700 000200 MOV #200,R0 SET FD MODE. 
3245 021164 170100 LDFPS R 
3246 021166 012700 021444 MOV #OVFNTT,RO GET THE RESULT. 


=< 


y 
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T12 SEE COMMENT ABOVE FOR TEST TITLE 


3247 021172 174010 ACO, (RO) 
3248 021174 010437 001250 R4,a4$STMP7 
010537 001254 R5,a4STMP11 
021444 #OVENTT,RO CHECK THE RESULT. 
R1,R2 
000010 #10,R2 
000002 #2,R3 
(RO) +, (R2)+ 
3256 021224 15$ 
344 021226 R3,3$ 
3259 021230 22(R1) RS WAS FPS CORRECT? 
3260 021234 10$ BRANCH IF FPS IS INCORRECT. 


;BRANCH IF INCORRECT. 


3261 
Py! 021236 4$: 36(R1) RETURN, TEST COMPLETED. 


3264 REPORT INCORRECT FPS. 
3265 021242 10$: TST 26(R1) WAS THE RESULT OVER OR UNDER FLOW? 
$509 021246 BNE 2 ;BRANCH If UNDERFLOW. 


3268 ;REPORT FPS BAD AFTER OVERFLOW. 
3269 021250 11$: ERROR 
3270 021252 BR 


3271 

3272 021254 12$: ;REPORT FPS BAD AFTER UNDERFLOW. 
3273 021254 13$: ERROR 

$55< 021256 0007 BR 
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T12 
3277 
3278 021260 
3279 021264 
3280 021266 
3281 021272 
3282 021276 


3288 2 
3289 021316 
3290 

3291 021320 
3292 

3293 

3294 

3295 

3296 021324 
3297 

3299 021326 
3300 021330 
3301 

3302 021332 


3303 021332 
fare 021334 


3306 

3307 021336 
3308 021340 
3309 021344 
3310 021346 
3311 

3312 021352 
3313 021354 
3314 021360 
3315 021362 
3316 021364 
3317 021370 


3322 021410 
3323 


2 
3324 021412 
$e52 021414 


3326 
$355 021420 
3329 021422 
3330 


3331 
3332 021426 
3333 


012700 
010102 
062702 
012703 
022022 
001007 
077303 
010102 
062702 
010237 
000112 


005761 


010102 
062702 
000112 
005761 


001003 


021444 


000014 
000002 


000034 
001236 


000026 


021154 
036660 


001236 
000200 
021444 
001254 
000024 
000030 


000026 


E 
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SEE COMMENT ABOVE FOR TEST TITLE 


;RESULT aaa 


S$: #OVFNTT,RO 
mov 1,R2 
ADD #14 ,R2 
MOV #2,R3 
16$: CMP (RO) +, (R2)+ 
BNE 17$ 
SOB R3, 16$ 
ADD #34 ,R2 
MOV R2, aASTMP2 
JMP (R2) 
17%: TST 26(R1) 
BNE 19$ 
188: ERROR +113 
BR 4$ 
19$: 
20$: ERROR +114 
BR 4$ 
: IF AN FP TRAP OCCURS COME HERE 
55$: MOV (SP) ,R2 
CMP #2$,R2 
BEQ 26$ 
JMP a4F PSPUR 
268: CMP (SP)+, (SP) + 
MOV R2, a#$IMP2 
STFPS RG 
STST —RS 
V eee. RO 
LDFPS 
MOV RO 
STD ACO, (ROS 
MOV R5,a#$TMP11 
CMP R5.24(R1) 
BNE 
MOV R1,R2 
ADD #30,R2 
JMP (R2) 
278: TST 26(R1) 
BNE 205 


SEQ 0082 


SEE IF FAILURE IS ANTICIPATED 
FAILURE. 


;BRANCH IF NOT ANTICIPATED. 


ERROR WAS ANTICIPATED SO RETURN 
J Fe REPORT IN THE CALLING 


RESULT WAS NOT ANTICIPATED 
:SO_ ERROR MUST BE REPORTED HERE. 
FIRST SEE IF ARGUMENTS SHOULD 


;HAVE RESULTED IN ae ate OR UNDER 
FLOW BY LOOKING AT THE FLAG. 
BRANCH IF UNDERFLOW EXPECTED. 


a ERT LOU. RESULT INCORRECT, EXPECTING 
VER 


pie lll — INCORRECT, 
; UNDERF 


EXPECTING 


"GET ADDRESS OF TRAP. 


[WAS THE TRAP DURING THE MULF INSTRUCTION? 
BRANCH IF YES 

ZOTHERWISE GO REPORT A SPURIOUS 

FP TRAP. 


SRESET THE STACK. 

;SAVE DATA FOR ERROR REPORT. 
GET Ae 

GET FEC. 

SET FD MODE. 


GET THE RESULT. 


WAS THE FEC ANTICIPATED? 


;BRANCH IF NOT ANTICIPATED. 


ERROR WAS ANTICIPATED SO 
;RETURN TO THE E 


RROR REPORT OF THE 


CALLING ROUTINE. 


THE ERROR WAS NOT ANTICIPATED SO 


:1T MUST BE arate HERE. FIRST SEE IF EXPECTED 
SOVERFLOW OR 


UNDER FLOW. 
BRANCH IF EXPECTING UNDERFL Ow 






3334 

3335 021430 
3336 021432 
3337 

3338 021436 
3339 021436 
$ec4 021440 


3 
3342 021444 
021452 


3343 
3344 021454 
021454 


> 021456 
3360 

3361 021460 

021460 

3362 021462 
3364 

3365 021476 

021504 

3366 OSiete 

3367 OC1216 

1522 


3375 021542 

3376 021544 

3377 

3378 

3379 021544 
921544 





01 
104132 


104413 
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T12 SEE COMMENT ABOVE FOR TEST TITLE 


000036 


0000 36 


000000 -000000 .QVFNTT: 


022004 
000000 
000000 
000000 
000000 


000000 
000000 


000000 
000000 


MACRO M1111 


283: 


298: 
30$: 


I 1 IDONE : 
R 


WEARERS AAAEREAAARAALASRARRRASLRLAR SA RASESAR ERR SERA RRR RAS RR RAR ASS SO 


:*TEST 13 SFE COMMENT ABOVE FOR TEST TITLE 


PeTHIS IS A _TEST OF THE OVERFLOW AND UNDERFLOW CONDITIONS THAT CAN 
;*ARRISE USING THE MULD INSTRUCTION WITH TRAPS DISABLED. A SUBROUTINE IS 
;*USED TO SET UP THE OPERANDS, EXECUTE THE MULD INSTRUCTION AND 

>*CHECK THE RESULTS. 


-* 


WeERASASRAAAASAALASALARASSARARA SRE R ARR RR RAR ARRAS RRR RRR RRR RR RR RRR DSS SD | 


TS113: 
— EXPONENT OF RESULT=-129 
ddd 


2$: 
3$: 
4$: 
5$: 
6$: 
7$: 


8$: 


F 
18=SEP=79 13:43 PAGE 14-1 



























SEQ 0083 


REPORT TRAPPED ON OVERFLOW WITH FIV=0 
ERROR +115 
JMP 36<R1) 


;REPORT TRAPPED ON UNDER FLOW WITH FIU=0 
ERROR +116 
JMP 36(R1) 


-WORD 0,0,0.0 


SETUP ;GO_ INITIALIZE THE FPS AND STACK; AND 
7SEE IF THE USER HAS EXPRESSED 
THE DESIRE TO CHANGE THE SOF TWARE 
;VIRTUAL CONSOLE SWITCH REGISTER (HAS 
; THE USER TYPED CONTROL G?). 


TEST TITLE: UNDER/OVERFLOW, USING MULD WITH TRAP DISABLED 


SCOPE 


LPERR ;SET UP THE LOOP ON ERROR ADDRESS. 
JSR PC, @#O0VUNDNT 
.WORD  20200,0 AC 


“WORD 127272,0 
“WORD  20000,0.0,0 F SRC 


. WORD 0,0,0,0 RES 

. WORD 0,0 sERROR RES. 

“WORD 127272,0 

200 sFPS BEFORE EXECUTION. 

204 sFPS AFTER EXECUTION. 

12 sFEC 

-1 FLAG 

— rs i 2ST 331 TO 155 INTO 115 (BUT Flu) 
ERROR +132 3ST 115 (BUT FD) 


;UNDERFLOW, EXPONENT OF RESULT = -193 
JJJ2: 


LPERR :SET UP THE LOOP ON ERROR ADDRESS. 


380 021546 


021714 


0 
1 
2 
3 
4 021714 
5 
6 
7 
8 


19 021742 


3424 021770 
3425 021772 





FP11F FLTG PNT PRT B 
SEE COMMENT ABOVE FOR TEST TITLE 


022004 


000000 
000000 
000000 


022004 
000000 
000000 
000000 
000000 
000000 


G 
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000000 
000000 
123456 














000000 
000000 
065432 


000090 
000000 
125252 















JSR PC , @#0VUNDNT 





1$: “WORD  10200,0 ZAC 
"WORD 123656,0 
2s: .~WORD 10000,0,0,0 ZFSRC 














0,0.0,0 RES 
4$: -WORD 0,0,123456,0 ERROR RES 




















5$: 5213 sFPS BEFORE EXECUTION. 
5204 sFPS AFTER EXECUTION. 

6$: 12 sFEC 
al : sFLAG 

7$: _ nt ae SETTING FIUV OR FIV BAD. 
ERROR +132 sST 115 (BUT FD) 

8$: 

ee EXPONENT OF RESULT = 128 

JJJ5: 
LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
JSR PC, @#OVUNDNT 

1§: WORD 60200,0 sAC 
. WORD 65432,0 

2s: . WORD 60000.0,0.0 ZF SRC 

3$: . WORD 0,0.0,0 RES 

4$: . WORD 0,0,65432,0 ZERROR RES. 

5$: 200 sFPS BEFORE EXECUTION. 
206 . sFPS AFTER EXECUTION. 

6$: 10 FEC 
0 sFLAG 

7$: a. tS :ST 333 TO 136 INTO 116 (BUT FIV) 
B 

7 ERROR +135 7ST 116 (BUT FD) 


sOVERFLOW, EXPONENT OF RESULT = 130 
JSS: 


LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
JSR PC, @#OVUNDNT 

1$: “WORD  60200,0 ZAC 
"WORD 125252,0 

23: -WORD 60200,0,0,0 sFSRC 

3$: .WORD 0,0,0,0 :RES 

4$: .WORD 0,0,125252,0 ERROR RES. 

5$: 6211 :FPS BEFORE EXECUTION. 
6206 “FPS AFTER EXECUTION. 

6$: 10 4 sFEC 
0 FLAG 

7$: ERROR +136 “SETTING FIUV OR FIV BAD. 


; caniniensiahnpigiiennneaen ey ipane) 


: H 
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™13 SEE COMMENT ABOVE FOR TEST TITLE . SEQ 0085 

%26 021774 900401 BR 8$ 
3427 021776 104135 ERROR +135 :ST 116 (BUT FD) 
3428 022000 000137 022414 8$: JMP a4 JJ JDONE *GO TO NEXT TEST. 
34,30 ; THIS SUBROUTINE, OVUNDNT, !S USED TO SET UP THE OPERANDS, EXECUTE 
%431 ; THE MULD INSTRUCTION AND CHECK THE RESULTS OF AN INSTRUCTION WITH 
%32 :OPERANDS WHICH SHOULD RESULT IN EITHER OVERFLOW OR UNDERFLOW. A CALL 
Hy ;TO IT IS MADE THUS: 
3435 . ACARG: WORD KLMX LM ;AC OPERAND 
%3%6 F SRCARG: .WORD KML ;FSRC OPERAND 
3437 Z RES: WORD XMM * EXPECTED RESULT 
%38 ERRES: WORD KMXLK XM * ERROR RESULT 
3439 . FPSB: ~ WORD K sFPS BEFORE EXECUTION 
3440 > FPSA: ~ WORD x FPS AFTER EXECUTION ” 
3441 ; FEC: ~ WORD ¥ sEXPECTED FEC 
3442 z FLAG: .~ WORD x 0/- 1,0VER/UNDER FLOW FLAG 
3443 ERR1: ERROR +X : ERROR. 
3444 CONT 
3445 > ERR2: ERROR +X DATA, RESULT ERROR 
; CONT: ZRETURN ADDRESS 
3448 + THE OPERANDS ARE SET UP (USING ACO AS THE ACCUMULATOR). "he 
3449 + THE MULD INSTRUCTION IS EXECUTED. IF NO TRAP OCCURS THEN THE 
3450 *RESULT IS — AGAINST RES. IF THE RESULT IS CORRECT THEN THE FPS IS 
3451 =COMPARED W WITH FPSA IF THIS TOO IS CORRECT OVUNDNT RETURNS CONTROL 
3452 :TO THE CALLING ROUTINE AT CONT. IF THE FPS IS BAD OVUNDNT 
3453 ‘REPORTS THIS FAILURE AND THEN RETURNS TO CONT. IF THE RESULT OF THE 
3454 zMULD IS INCORRECT, THE INCORRECT RESULT IS COMPARED WITH THE 
3455 SANTI CIPATED FAILING DATA PATTERN, ERRES. IF THE FAILURE IN 
3456 THE RESULT WAS coal’ Gat CORRECTLY TO BE ERRES THEN OVUNDNT 
3457 WILL TRANSFER CONTROL TO THE ERROR CALL AT anne. OTHERWISE THE 
3458 sRESULT WAS INCORRECT BUT WAS NOT ANTICIPATED AND eee A WILL 
3459 sREPORT THE FAILURE AFTER WHICH CONTROL WILL BE PASSED T 7 ead 
3460 : IF A TRAP OCCURS (IT SHOULD NOT) THEN OVUNDNT WILL READ THE FEC. 
3461 * SHOULD THE FEC MATCH THE ANTICIPATED FEC OVUNDNT WILL 
3462 Hh ALL DATA AND TRANSFER CONTROL TO THE ERROR CALL AT ERR1. IF THE 
3463 FEC IS NOT THE SAME AS THE ANTICIPATED FEC OVUNDNT WILL REPORT 
3464 + THE ERROR AND RETURN TO CONT. NOTE THAT OVUNDNT USES THE FLAG 
3465 :TO TELL WHETHER OR NOT THESE PARTICULAR OPERANDS WILL RESULT IN 
es: SUNDERFLOW (FLAG=-1) OR OVERFLOW (FLAG=0). 
3468 022004 012601 OVUNDNT : MOV (SP)+,R1 GET A POINTER TO THE ARGUMENTS. 
3469 022006 012700 000200 MOV #200,RO :SET FD MODE. 
3470 022012 170100 LDFPS RO 
3472 022014 010100 MOV R1,R0 ;LOAD ACO, OPERAND. 
473 022016 172410 LDD (RO) ,ACO 
3475 022020 010102 MOV R1,R2 :SAVE THE DATA PATTERNS IN CASE OF 
3476 022022 010237 001240 MOV R2. aASTMP3 ERROR. 
3477 022026 062702 000010 ADD #10,R 
3478 022032 010237 001242 MOV R2, aA$STMPG 

022036 062702 10 ADD 10, 

022 010237 001244 MOV R2, a#STMPS 
3481 022046 016137 000042 001252 MOV 42(R1) ,aa#$TMP10 
3482 022054 012737 022406 001246 MOV #OVDNTT , aS TMP6 


I 
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113 SEE COMMENT ABOVE FOR TEST TITLE SEQ 0086 
%83 
3484 022062 016100 000040 may 40(R1) RO sLOAD THE FPS. 
3485 022066 170100 LDFPS RO 
3486 022070 012737 022112 001236 MOV #1$, aASTMP2 
94:14 022076 012737 022276 000244 MOV #25$,aAFPVECT se ERROR FP TRAP VECTOR IN CASéE 
3489 022104 010100 MOV R1.RO *COMPUTE THE ADDRESS OF FSRC. 
#490 022196 062700 000010 ADD #10,R0 
854 022112 171010 1$: MULD (RO) ,ACO s TEST INSTRUCTION. 
3494 022114 170204 es: STFPS RG ;GET FPS. 
3495 022116 170305 STST R5 ;GET FEC. 
3496 022120 012700 000200 MOV #200,RO “SET FD MODE. 
3497 022124 170100 LDFPS RO 
3498 022126 012700 022404 MOV #OVDNTT,RO GET THE RESULT. 
3499 022132 174010 STD ACO, (RO) 
3500 022134 010437 001250 MOV R4,a4$TMP7 
3501 022140 010537 001254 MOV RS. a¥$TMP11 
3503 022144 012700 022494 MOV #GVDNTT,RO ; CHECK THE RESULT. 
3504 022150 010102 MOV R1,R2 
3505 022152 062702 000020 ADD #20,R2 
3506 022156 012703 000004 MOV #4 RB 
3507 022162 022022 3$: CMP (RO) +, (R2)+ 
3508 022164 001015 BNE 15$ :BRANCH IF INCORRECT. 
3509 022166 077303 SOB R3,3$ 
3511 022170 026104 000042 CMP 42(R1) RS WAS FPS CORRECT? 
3216 022174 901002 BNE 10$ ;BRANCH IF FPS IS INCORRECT. 
tis 022176 000161 000056 4$: JMP 56(R1) ZRETURN, TEST COMPLETED. 
3516 ZREPORT INCORRECT FPS. 
3517 022202 005761 900046 10$: TST 46(R1) WAS THE RESULT OVER OR UNDER FLOW? 
3518 022206 001002 BNE 12$ “BRANCH IF UNDERFLOW. 
3520 ;REPORT FPS BAD AFTER OVERFLOW. 
3521 022210 104123 11$: ERROR +123 
3522 022212 000771 BR 4$ 
3524 022214 12$: ;REPORT FPS BAD AFTER UNDERFLOW. 
3525 022214 104124 138: ERROR +124 
3526 022216 000767 BR 4$ 
3528 :RESULT INCORRECT. 
3529 022220 012700 022404 15$: MOV #OVDNTT RO :SEE IF FAILURE IS ANTICIPATED 
3530 022224 010102 —- MOV R1,R2 FAILURE. 
3531 022226 062702 000030 ADD #30,R2 
3532 022232 012703 000004 MOV #4 RB 
3533 022236 022022 16$: CMP (RO), (R2)+ 
3534 022240 001007 BNE 7$ :BRANCH IF NOT ANTICIPATED. 
3535 022242 077303 SOB R3, 16$ 
3537 022244 010102 MOV R1,R2 ZERROR WAS ANTICIPATED SO RETURN 
3538 022246 062702 000054 ADD #54,R2 *TO THE ERROR REPORT IN THE CALLING 
3539 022252 010237 001236 MOV R2, aASTMP2 “ROUTINE. 
8 


3540 022256 
3542 022260 
3543 


3546 
3547 022264 
3548 
3549 
3550 022266 
3551 022270 
3552 
3553 022272 
3554 022272 
3555 022274 
3556 
3557 
3558 022276 
3559 022300 
3560 022304 
3561 022306 
3562 
3563 Secale 
64 314 


3573 022350 
3574 


3575 022352 
3576 022354 


3577 
3578 022360 
3580 022362 
3581 
3582 
3583 022366 
3584 
585 
3586 022370 
3587 022372 
3588 
3589 022376 
3590 022376 
3591 022400 
3592 
3593 022404 
022412 


3594 
3595 622414 


CKFPBAO FPIIF FLTG PNT PRT B 
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000112 
005761 


001902 


104125 
000742 


104126 
000740 


011602 


010102 
062702 


000112 
005761 


001003 


104127 
000161 


104130 
000161 


000000 
000000 


000046 


022114 
036660 


001236 


000200 
022404 


001254 
000044 


000050 


000026 


000056 


000056 
000000 000000 


MACRO M1111 


J 
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JMP (R2) 
17$: TST 46(R1) ;RESULT WAS NOT ANTICIPATED 
;S0 ERROR MUST BE REPORTED HERE. 
sFIRST SEE IF ARGUMENTS SHOULD 
;HAVE RESULTED IN OVERFLOW OR UNDER 
sFLOW BY LOOKING AT THE FLAG. 
BNE 19$ BRANCH IF UNDERFLOW EXPECTED. 
;REPORT RESULT INCORRECT, EXPECTING 
18$: ERROR +125 Z OVERFLOW. 
BR 4$ % 
19$: zREPORT RESULT INCORRECT, EXPECTING 
208: ERROR +126 ; UNDERF LOW. 
BR 4$ 
; IF AN FP TRAP OCCURS COME HERE. 
o5$: MOV (SP) ,R2 ;GET ADDRESS OF TRAP. 
CMP #2$,R2 zWAS THE TRAP DURING THE MULF INSTRUCTION? 
BEQ 26$ :BRANCH IF YES. 
JMP a4FPSPUR : OTHERWISE GO REPORT A SPURIOUS 
26$: CMP (SP)+,(SP)+ sRESET THE STACK. 
MOV R2,a4STMP2 + DATA FOR ERROR REPORT. 
STFPS RG sGET FPS. 
STST R5 sGET FEC. 
V #200,R0 SET FD MODE. 
LDFPS RO 
MOV #OVDNTT,RO GET THE RESULT. 
STD ACO, (RO) 
MOV R5,a4$7MP11 
C R5,44(R1) sWAS THE FEC ANTICIPATED? 
BNE 27$ ;BRANCH IF NOT ANTICIPATED. 
MOV R1,R2 ;ERROR WAS ANTICIPATED SO 
ADD #50,R2 :RETURN TO THE ERROR REPORT OF THE 
: CALLING ROUTINE. 
JMP (R2) 
27$: TST 26(R1) ; THE ERROR WAS NOT ANTICIPATED SO 
:1T MUST BE REPORTED HERE. FIRST SEE IF EXPECTED 
SOVERFLOW OR UNDER FLOW. 
BNE 29% ;BRANCH IF EXPECTING UNDERFLOW 
;REPORT TRAPPED ON OVERFLOW WITH FIV=0 
288: ERROR +127 
JMP 56(R1) 
298: ;REPORT TRAPPED ON UNDER FLOW WITH FlU=0 
30$: ERROR +130 
JMP 56(R1) 
OVDNTT: .WORD 0,0,0,0 


JJJDONE : 


SEQ 0087 


kK 7 
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CKEPBAO FP11F FLTG PNT PRT B MACRO M1111 
113 SEE COMMENT ABOVE FOR TEST TITLE SEQ 0088 
022414 104412 RSETUP :GO_ INITIALIZE THE FPS AND STACK; AND 
“SEE IF THE USER HAS EXPRESSED 
‘THE DESIRE TO CHANGE THE SOFTWARE 
‘VIRTUAL CONSOLE SWITCH REGISTER (HAS 
= THE USER TYPED CONTROL G?) 
3596 
3597 
is 
3611 :TEST TITLE:UNDER/OVERFLOW, USING MULF WITH TRAPS ENABLED 
3612 RR IO II ICICI IOIIIDISISISIIDIOIIOISIOIOUOIOIIOIOII III IOI III LE 
:#TEST 14 SEE COMMENT ABOVE FOR TEST TITLE 
THIS IS A TEST OF THE UNDERFLOW AND OVERFLOW 
**CONDITIONS THAT CAN OCCUR USING THE MULF INSTRUCTION. 
+*A SUBROUTINE IS CALLED TO SET UP THE OPERANDS, 
t* EXECUTE THE MULF INSTRUCTION AND CHECK 
‘*THE RESULTS. HERE THE PARTICULAR INTERRUPT, 
; ¥E 1 THER OVERFLOW OR UNDERFLOW, IS ENABLED SO A TRAP SHOULD 
** ” 
** 
r TPRPSBAEBASGSBASZALAASLAALAALESLASSZASSLSLELESS SSE SESE ESR RRR ARRAS SAS SARA SSS SG 
‘on 022416 000004 $114: SCOPE 
3614 sUNDERFLOW, EXPONENT OF RESULT = -129 
3615 022420 KKK1: , 
022420 104413 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
3616 022422 004737 022644 JSR PC, @#OVUNF T 
3617 022426 020123 045676 1$: -WORD 20123,45676 ZAC 
3618 022432 020200 000000 2$: “WORD 2 *FSRC 
319 022436 123 045676 3$: “WORD 123,45676 TRES 
022442 177777 177777 4s: .WORD <-1,- TERROR RES. 
1 022446 002000 S$: 2000 [FPS BEFORE EXECUTION. 
3622 022450 102004 102004 [FPS AFTER EXECUTION. 
3623 022452 12 6$: 12 FEC 
3624 022454 177777 a} FLAG 
3625 022456 104145 7$: ERROR +145 ‘ST 331 (BUT FIU) NO TRAP. 
3626 022460 000401 8$ 
3627 022462 104144 ERROR +144 
3628 022464 8$: 
3630 :UNDERFLOW, EXPONENT OF THE RESULT = -193 
3631 022464 KKK3: 
022464 104413 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
022466 004737 022644 JSR PC, @#OVUNF T 
3633 022472 010127 127272 1$: ~WORD 10127,127272 —;: AC 
34 022476 010200 23: “WORD  10200.0 *FSRC 
3635 022502 127 127272 3$: “WORD 60127.127272 RES 
022506 177777 177777 4$: WORD 71 TERROR RES. 
3637 022512 017 5$: 7017 “FPS BEFORE EXECUTION. 
3638 022514 107000 107000 ‘FPS AFTER EXECUTION. 
3639 022516 12 6$: 12 FEC 
3640 022520 177777 -1 
3641 022522 104146 7$: ERROR +146 :ST 137 (BUT FIU) NO TRAP. 
3642 022524 0004 8$ 
3643 022526 104144 ERROR +144 
3644 022530 83: 


CKFPBAO FP11F FLTG PNT PRT B 
T14 SEE COMMENT ABOVE FOR TEST TITLE 


3653 022556 
3654 60 


22574 


3662 
3663 Oeeere 


22574 
022576 

3665 02260 
022 

3667 022612 
022616 

3669 022622 

3670 022624 

3671 02262 

3672 022630 

3673 022632 

3674 022634 

3675 022636 

3676 022640 

3677 

3678 

3679 

3680 

3681 

3682 

3683 

3684 

3685 

3686 

3687 

3688 

3689 

3690 

3691 

3692 

2693 

3694 

3695 

3696 

3697 

3698 

3699 


——- OC 
Sos 
NMOWIN 
NM 44s 


WNSUR 


022644 
067654 

0000 
067654 
177777 


000412 


MACRO M1111 


L 
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sOVERFLOW, EXPONENT OF THE RESULT = 128 
KKK4: 


8$: 


8$: 
;THIS SUBROUTINE, OVUNFT, 


PC ,@FOVUNF T 
60252, 125252 
000052, 125252 


+147 
8$ 
+143 


PC, @#OVUNF T 
60345 .67654 
34567654 


+150 
8 


$ 
+143 
KKKDONE 


;SET UP THE LOOP ON ERROR ADDRESS. 


‘ERR OR RES. 
FPS BEFORE EXECUTION. 
ZEPS AFTER EXECUTION. 


. 
. 


sFLAG 
3ST 333 (BUT FIV) NO TRAP 


= 130 


;SET UP THE LOOP ON ERROR ADDRESS. 


ZAC 

zFSRC 

RES 

;ERROR RES. 

sFPS BEFORE EXECUTION. 
ae AFTER EXECUTION. 


3 FLAG 
:ST 133 (BUT FIV) NO TRAP 


IS USED TO SET UP THE OPERANDS, EXECUTE 


[THE MULF INSTRUCTION AND CHECK THE RESULTS OF AN INSTRUCTION WITH 
[OPERANDS WHICH SHOULD RESULT IN EITHER OVERFLOW = UNDERFLOW. A CALL 
a IT IS MADE THUS: 


; THE OPERANDS ARE SET UP (USING ACO AS THE ACCUMULATOR). 
THE MULF INSTRUCTION IS EXECUTED. 
RESULT IS CHECKED AGAINST RES. 


ACARG: .WORD 
F SRCARG: . WORD 
RES: . WORD 
ERRES WORD 
FPSB: «WORD 
FPSA: WORD 
FEC: WORD 
FLAG: . WORD 
ERR1: ERROR 
BR ONT 
ERR2: ERROR 
CONT: 


a OPERAND 


FSRC OPERAND 
ZEXPECTED RESULT 
ERROR RESULT 
:FPS BEFORE EXECUTION 
FPS AFTER EXECUTION 
EXPECTED FEC 
30/-1,O0VER/UNDER FLOW FLAG 
TRAP ERROR. 


DATA, RESULT ERROR 
RETURN ADDRESS 


THEN 
IF THE TRAP OCCURS THEN THE 
IF THE RESULT IS CORRECT THEN THE FPS IS 


+ << OK OK OK OK OK OK 


+ 
=< «x 


COMPARED WITH FPSA IF THIS TOO IS CORRECT OVUNFT RETURNS CONTROL 


SEQ 0089 


M 
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T14 SEE COMMENT ABOVE FOR TEST TITLE 
;TO THE CALLING ROUTINE AT CONT. IF THE FPS IS BAD OVUN 
:RE RETURNS TO CONT. THE ta Is TREATED 


7 IN THE SAME E 
:MULF IS INCORRECT, THE INCORRECT RESULT IS COMPARED WITH THE 
TANTICIPATED FAILING DATA PATTERN, ERRES. IF THE FAILURE IN 
THE RESULT WAS ANTICIPATED CORRECTLY TO 3 ERRES THEN OVUNFT 
CONTROL TO THE ERROR CALL AT ERR2. OTHERWISE THE 
BUT WAS NOT ANTICIPATED AND OVUNFT WILL 
;REPORT THE FAILURE AFTER WHICH CONTROL WILL BE PASSED TO CONT. 
IF NO TRAP OCCURS CONTROL A PASSED TO ERR1. 
ZNOTE THAT OVUNFNT USES THE FLAG 
>TO TELL WHETHER OR NOT THESE PARTICULAR OPERANDS WILL RESULT IN 
;UNDERFLOW (FLAG=-1) OR OVERFLOW (FLAG=0). 


3713 

3714 022644 
3715 022646 
3716 022652 
3717 

3718 022654 
3719 022656 


3720 
3721 022660 


3 06 
3728 022714 
3729 

3730 022722 
3 30 
3733 022736 
3734 

3735 022744 
3736 022746 
3737 

3728 022752 
3739 022754 
3740 

3741 022756 
3742 

3743 022762 
3744 022764 
3745 022770 
3746 022772 
3747 

3748 022776 
3749 023000 


3756 023024 


170100 


010100 
172410 


010102 


012737 
010100 
062700 


171010 
170000 


001240 
000004 
001242 
000004 
001244 
000022 
023246 
000020 
022752 
022762 


000004 


023206 


022754 
036660 


000200 
023246 


001250 
001254 


001252 
001246 


001236 
000244 


OVUNFT: MOV 
MOV 


(SP)+,R1 
#200 ,RO 

RO 

R1,RO 

(RO) ,ACO 
R1,R2 
R2,a4STMP3 
#4 ,R2 

R2, a#STMP4 
#4 ,R2 


R2. aASTMPS 
22(R1) , aASTMP10 
#OVF TT. aASTMPG 


20(R1) ,RO 
RO 


#1$ ,a#$TMP2 
#508, a4F PVECT 


R1,R0O 
#4 ,RO 


(RO) ,ACO 


an25$ 
(SP) ,R2 
R2,A2$ 
51$ 

a#F PSPUR 


(SP)+,(SP)+ 
R4 


R5. aA$TMP11 


;GET A POINTER TO THE ARGUMENTS. 
;SET FD MODE. 


;LOAD ACO, OPERAND. 


;SAVE THE DATA PATTERNS IN CASE OF 
ERROR. 


;LOAD THE FPS. 


‘selon FP TRAP VECTOR IN CASE 
; COMPUTE THE ADDRESS OF FSRC. 


TEST INSTRUCTION. SHOULD CAUSE TRAP. 


FAILURE, NO TRAP. 


; TRAP TO HERE AND SEE IF THE PC OF THE 
; TRAP WAS THAT OF THE MULF INSTRUCTION. 
BRANCH IF YES. 

Ss OTHERWISE REPORT SPURIOUS FP ERROR. 


RESET THE STACK 
CET FPS. 

GET FEC. 

;SET FD MODE. 


GET THE RESULT. 





CKFPBAO FP11F FLTG PNT PRT 


T14 


8 
SEE COMMENT ABOVE FOR TEST TITLE 


3757 
3758 023030 


3765 
3766 023054 
3767 023060 
3768 
3769 023062 
3770 023066 
3771 023070 
3772 
3773 
3774 023074 
3775 023100 
3776 
3777 
3778 023102 
3779 023104 
3780 
3781 023106 
3782 023106 
3783 023110 
3784 
3785 
3786 023112 
3787 023116 
3788 
3789 
3790 023120 
3791 023122 
3792 
3793 023124 


3794 023124 
3795 023126 
3796 


3797 
3798 023130 


2? 
077303 


026104 
001014 


026105 
001002 
000161 
005761 
001002 


104137 
000771 


104140 
000767 


005761 
001002 


104141 
000762 


104142 
000760 


012700 
010102 
062702 
012703 
022022 
001007 
077303 
010102 


062702 
010237 
000112 


023246 
000010 


000002 


000022 


000024 
000036 


000026 


000026 


023246 


000014 
000002 


000034 
001236 


000026 


MACRO _M1111 


3$: 


;REPORT 
5$: 


;RESULT 
15$: 


16$: 


17$: 


N 
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MOV #OVFTT,RO sCHECK THE RESULT. 
MOV R1,R2 
ADD #10,R2 
MOV #2,R3 
CMP (RO) +, (R2)+ 
BNE 15$ :BRANCH IF INCORRECT. 
SOB R3,3$ 
CMP 22(R1) RS :WAS FPS CORRECT? 
BNE 10$ “BRANCH IF FPS IS INCORRECT. 
CMP 24(R1) RS z1S FEC CORRECT? 
BNE 5$ ‘IF INCORRECT BRANCH. 
JMP 36(R1) ‘RETURN, TEST COMPLETED. 
INCORRECT FEC. 
TST 26(R1) :WAS THE RESULT OVERFLOW OR UNDERFLOW? 
BNE “BRANCH IF UNDERFLOW. 
;REPORT BAD FEC ON EXPECTED OVERFLOW. 
ERROR +137 
BR 4$ 
:REPORT BAD FEC ON EXPECTED UNDERFLOW. 
ERROR +140 
BR 4$ 
INCORRECT FPS. 
TST 26(R1) :WAS THE RESULT OVER OR UNDER FLOW? 
BNE “BRANCH IF UNDERFLOW. 
:REPORT FPS BAD AFTER OVERFLOW. 
ERROR +141 
BR 4$ 
:REPORT FPS BAD AFTER UNDERFLOW. 
ERROR +142 
BR 4$ 
INCORRECT. 
MOV #OVFTT RO :SEE IF FAILURE IS ANTICIPATED 
MOV R1,R2 FAILURE. 
ADD Wa RO 
MOV #2,R3 
CMP (RO) +, (R2)+ 
BNE 17$ :BRANCH IF NOT ANTICIPATED. 
SOB R3,16$ 
MOV R1,R2 sERROR WAS ANTICIPATED SO RETURN 
ADD #34 ,R2 ‘TO THE ERROR REPORT IN THE CALLING 
MOV R2, a#STMP2 ROUTINE. 
JMP (R2) 
TST 26(R1) :RESULT WAS NOT ANTICIPATED 


O ERROR MUST BE REPORTED HERE. 
PTRST SEE IF ARGUMENTS SHOULD 


SEQ 0091 


B & 
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T14 SEE COMMENT ABOVE FOR TEST TITLE 


ays RESULTED is ae erg OR UNDER 
FLOW BY LOOKING AT THE FLAG. 
001002 BNE 19% “BRANCH IF ONDERF L Ow EXPECTED. 


ee, RESULT INCORRECT, EXPECTING 
18$: pee 2 ; OVERF |. OW. 


;REPORT RESULT INCORRECT, EXPECTING 
: UNDERF LOW. 


ERROR +144 
BR 4$ 


;1F NO FP_TRAP OCCURS COME HERE. 
25$: STFPS R4 GET FPS. 
5 GET FEC. 
000200 MO 3 7SET FD MODE. 


023246 MO GET THE RESULT. 
001250 


001254 
R1,R ERROR WAS ANTICIPATED SO 
000030 ;RETURN TO THE ERROR REPORT OF THE 
7 CALLING ROUTINE. 
38 5 023244 


023246 000000 OVFTT: . 0.0,0,0 
, 023254 


023256 KKKDONE : 
023256 RSETUP +60 INITIALIZE THE FPS AND STACK; AND 


0 E THE SOF E 
;VIRTUAL CONSOLE SWITCH REGISTER (HAS 
THE USER TYPED CONTROL G?). 


TEST TITLE:UNDER/OVERFLOW, USING MULD WITH TRAPS ENABLED 


FLARE REAR AERA REE EEERK EERE KREERRERKE EE 


S*TEST 15 SEE COMMENT ABOVE FOR TEST TITLE 
* 


>*THIS IS A TEST OF THE OVER FLOW AND UNDER FLOW CONDITIONS USING THE 
:*MULD INSTRUCTION WITH TRAPS ENABLED. A SUBROUTINE IS USED TO SET UP 
;*THE OPERANDS, EXECUTE THE MULD INSTRUCTION AND CHECK THE RESULTS. 


** 
e 


ST AAA AREER ERREEREER ERE AREER AEREEREREKEREREEEEREREEE 


3856 023260 TST15: SCOPE 
3857 ;UNDERFLOW, EXPONENT OF RESULT = -129 
3858 023262 LLL1: 
023262 :SET UP THE LOOP ON ERROR ADDRESS. 
3859 023264 
3860 023270 
3861 023274 
3862 023300 





aren [P11F FLTG PNT PRT B 


MACRO M1113 


T15 SEE COMMENT ABOVE FOR TEST TITLE 


023306 
3863 023310 177777 
316 


3864 023320 177777 
3865 023324 125252 125252 
3866 00 


3873 023346 

3874 

3875 

3876 023346 
023346 

3877 023350 37 023606 

3878 023354 010327 127272 

3879 023360 036363 045454 
023364 010000 000000 
0 2 000000 

3881 023374 060127 127272 

3882 023400 036363 045454 

3883 023404 177777 177777 


13 

37 023606 
52 125252 
52 125252 
3898 023450 
77 «(177777 


77 ~+177777 
125252 


N\WAOUIG 
SES5 
OoooooO 

PoNPonoro 

WWW 
“23333 y 
SRRVSRSFSF 
—_ eBnoue 
SSSSS5838 

Sasn 


8 
N 
oO 
— 
Ww 
Ww 
—_ 
NM 
Aon 
w—M 


psig 023516 
3911 


233 

=h 

So 
oS 
~~ 
R 
nen 


177777 938: 
4$: 
5$: 
6$: 
7$: 


8$: 


C 8 
18=-SEP=79 13:43 PAGE 14-11 
SEQ 0093 


-WORD 177,=1,-1,-1 sRES 


.WORD 177, -1 ZERROR RES. 

“WORD 125252,125252 

2200 :FPS BEFORE EXECUTION. 
_— eet AFTER EXECUTION. 

-1 sFLAG 

ae +157 :ST 331 (BUT FIU) NO TRAP. 


8$ 
ERROR +160 3ST 155 (BUT FD) 


U0 eee EXPONENT OF THE RESULT = -193 
Lilie: 


1$: 
000000 2$: 
3$: 
177777 48: 
5$: 
6$: 
7$: 


8$: 


LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
JSR PC, @#OVUNDT 

-WORD 10827,127272 —: AC 

“WORD 36363.45454 


-WORD 10000,0,0,0 3F SRC 


«WORD 60127,127272 :RES 
-WORD  36363,45454 
WORD = -1,°1,°1,°1 ERROR RES. 


ba 3FPS BEFORE EXECUTION. 
Saad eet AFTER EXECUTION. 
-1 sFLAG 
ERROR +161 sST 137 (BUT FIU) NO TRAP. 
BR 8$ 
ERROR +156 


+70 “ie EXPONENT OF THE RESULT = 128 


1$: 
000000 2$: 
177777 =—3$: 
4$: 
5$: 
6$: 
7$: 


8$: 


LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
WORD 60382, 138350 AC 

“WORD 125252,125252  :FSRC 

“WORD 160100.0,0,0 :FSRC 


-WORD 100177,-1,-1,-1 ;RES 


-WORD 100177,-1 ERROR RES. 

«WORD 125252,125252 

1200 sFPS BEFORE EXECUTION. 
igtere FEE AFTER EXECUTION. 


ae une (BUT FIV) NO TRAF. 
:ST 700 (BUT FD). 


0 

ERROR +162 
BR 8$ 
ERROR +163 


OVERFLOW, EXPONENT OF THE RESULT = 130 


—“"r 


CKFPBAO FP11F FLTG PNT PRT B 


115 


SEE COMMENT ABOVE FOR TEST TITLE 


3912 Og3216 


3925 023576 
3926 023600 
$055 023602 


104413 
004737 


060 
056765 
060200 


023606 
067654 
045676 
000000 


067654 
045676 
177777 


024220 


D & 
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000000 


177777 


LLL4: 


1$: 
23: 
3$: 
4$: 
5$: 
6$: 
7$: 


8$: 


PC, @#OVUNDT 
60345 67654 
56765 .45676 
60200.0,0.0 
34567654 
5676545676 


+164 
$ 


8 
+155 
@4LLLDONE 


SEQ 0094 


SET UP THE LOOP ON ERROR ADDRESS. 
sAC 

3FSRC 

sRES 

;ERROR RES. 


sFPS BEFORE EXECUTION. 
eet AFTER EXECUTION. 


sFLAG 
7ST 133 (BUT FIV) NO TRAP 


THIS SUBROUTINE, OVUNDT, IS USED TO SET UP THE OPERANDS, EXECUTE 
;THE MULD INSTRUCTION AND CHECK THE RESULTS OF AN INSTRUCTION WITH 
+ Ae a om ried RESULT IN FITHER OVERFLOW OR UNDERFLOW. A CALL 


ACARG: 


« WORD 


MMMM ;AC OPERAND 


E 8 
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115 SEE COMMENT ABOVE FOR TEST TITLE SEQ 0095 
3936 : FSRCARG:.WORD X,X,X,X ;FSRC OPERAND 
3937 : RES: -WORD X,X,X,X ZEXPECTED RESULT 
3938 : ERRES: .WORD X.X.X,X TERROR RESULT 
3939 : FPSB: .WORD X ‘FPS BEFORE EXECUTION 
3940 5 FPSA: ~ WORD x sFPS AFTER EXECUTION 
3941 : FEC: WORD xX “EXPECTED FEC 
3942 2 FLAG: D K 30/-1,0VER/UNDER FLOW FLAG 
3943 - ERR1: ERROR +x * TRAP ERROR. 
3944 CONT 
3945 * ERR2: ERROR +X ;DATA, RESULT ERROR 
3009 ; CONT: “RETURN ADDRESS 
3948 ‘THE OPERANDS ARE SET UP (USING ACO AS THE ACCUMULATOR). THEN 
3949 >THE MULD INSTRUCTION IS EXECUTED. IF THE TRAP OCCURS THEN THE 
3950 “RESULT IS CHECKED AGAINST RES. IF THE RESULT IS CORRECT THEN THE FPS IS 
3951 :COMPARED WITH FPSA IF THIS TOO IS CORRECT OVUNDT RETURNS CONTR 
3952 :TO THE CALLING TINE AT CONT. IF THE FPS IS SAD OVUNDT 
3953 ‘REPORTS THIS FAILURE AND THEN RETURNS TO CONT. THE FEC IS TREATED 
3954 ‘IN THE SAME WAY. IF THE RESULT OF THE 
3955 ‘MULF IS INCORRECT, THE INCORRECT RESULT IS COMPARED WITH THE 
3956 SANTICIPATED FAILING DATA PATTERN, ERRES. IF THE FAILURE IN 
3957 ‘THE RESULT WAS ANTICIPATED CORRECTLY TO BE ERRES THEN T 
3958 ‘WILL TRANSFER CONTROL TO THE ERROR CALL AT ERR2. OTHERWISE THE 
3959 SRESULT WAS INCORRECT BUT WAS NOT ANTICIPATED AND OVUNDT WILL 
3960 ;REPORT THE FAILURE AFTER WHICH CONTROL WILL BE PASSED TO CONT. 
3961 ‘IF NO TRAP OCCURS CONTROL IS PASSED TO ERR}. 
3962 “NOTE THAT OVUNDNT USES THE FLAG 
3963 :TO TELL WHETHER OR NOT THESE PARTICULAR OPERANDS WILL RESULT IN 
se sUNDERFLOW (FLAG=-1) OR OVERFLOW (FLAG=0). 
3966 023606 012601 OVUNDT: MOV (SP)+,R1 ;GET A POINTER TO THE ARGUMENTS. 
3967 023610 012700 000200 MOV #200,R0 *SET FD MODE. 
3968 023614 170100 LDFPS RO 
3970 023616 010100 MOV R1,RO0 ;LOAD ACO, OPERAND. 
3971 023620 172410 LDD (RO) ,ACO 
3973 023622 010102 MOV R1,R2 ;SAVE THE DATA PATTERNS IN CASE OF 
3974 023624 010237 001240 MOV R2. ahSTMP3 ERROR. 
3975 023630 062702 000010 ADD #10,R2 
3976 023634 010237 001242 MOV R2, aASTMPS 
3977 023640 062702 000010 ADD #10,R2 
3978 023644 010237 001244 MOV R2, aS TMPS 
3979 023650 016137 000042 001252 MOV 42(R1) ,aA$TMP10 
3980 023656 012737 024210 001246 MOV #OVDTT, a#$TMPG 
39 023664 016100 000040 MOV 40(R1),R0 ;LOAD THE FPS. 
3983 023670 170100 LDFPS RO 
3984 023672 012737 023714 001236 MOV #1$, a4SITMP2 
tae 023700 012737 023724 000244 MOV #50$,a4F PVECT ia eon FP TRAP VECTOR IN CASE 
3987 023706 010100 MOV R1,RO [COMPUTE THE ADDRESS OF FSRC. 
3988 023710 062700 000010 ADD #10,R0 
3990 023714 171010 1$: MULD —s- (RQ) , ACO :TEST INSTRUCTION. SHOULD CAUSE TRAP. 
170000 2$: CFCC 


3991 023716 
3992 


CKFPBAO FRP11F FLTG PNT PRT B 
T15 SEE COMMENT ABOVE FOR TEST TITLE 


3993 023720 
994 
3995 023724 
3996 


4011 023776 
000 


aS 024014 


4018 024016 
rr db 024022 


4021 024024 
4022 024030 
4023 024032 


5 
4026 024036 
4027 024042 


9 
4030 024044 
rest 024046 
4033 024050 


4034 024050 
ryt 024052 


4037 
4038 024054 
4039 024060 
4040 
4041 


4042 024062 
4043 024064 


046 

4047 024070 
4048 
4049 


000137 


022626 
170204 


077303 


026104 
001014 


026105 
001002 
000161 


024150 


023716 
036660 


00C. 00 
024210 


001250 
001254 


024210 
000020 


000004 


000042 


000044 
000056 


000046 


000046 


F 8 
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50$: 


%§: 


4$: 
;REPORT 
5$: 


63: 


JMP 


INCORRE C 
TST 
BNE 


ERROR 
BR 


ERROR 
BR 
INCORRE C 
TST 

BNE 


tRROR 
BR 


ERROR 
BR 


ar 25$ 


(SP) ,R2 
Re acs 


51$ 

aa4F PSPUR 
(SP)+,(SP)+ 
RG 

R5 

#200,R0 

RO 
#OVDTT,RO 
ACO, (RO) 
R4,a4$TMP7 
RS, @4$TMP11 
#OVDTT,RO 
R1.R2 
#20,R2 

#4 R3 
(RO)+,(R2)+ 
15$ 

R3,3$ 
42(R1) RG 
10% 


44(R1),R5 
5$ 

56(R1> 

YT FEC, 
46(R1) 

7$ 


+151 
4$ 


+152 

4$ 

T FPS. 
R 


46(R1) 
12% 


+153 
4$ 


+154 
4$ 


RESULT INCORRECT. 


;FAILURE, NO TRAP, 

; TRAP TO HERE AND SEE IF THE PC OF THE 
; TRAP WAS THAT OF THE MULF INSTRUCTION. 
;BRANCH IF YES. 

;OTHERWISE REPORT SPURIOUS FP ERROR. 
;RESET THE STACK 

;GET FPS. 

sGET FEC. 

:SET FD MODE. 


;GET THE RESULT. 
3 CHECK THE RESULT. 


BRANCH IF INCORRECT. 

;WAS FPS CORRECT? 

;BRANCH IF FPS IS INCORRECT. 
31S FEC CORRECT? 


IF INCORRECT BRANCH. 
;RETURN, TEST COMPLETED. 


;WAS THE RESULT OVERFLOW OR UNDERF{ OW? 
;BRANCH IF UNDERFLOW. 


;REPORT BAD FEC ON EXPECTED OVERFLOW. 


;REPORT BAD FEC ON EXPECTED UNDERFL Ow. 


oat 


;WAS THE RESULT OVER OR UNDER FLOW? 
;BRANCK IF UNDERFLOW. 


REPORT FPS BAD AFTER OVERFLOW. 


REPORT FPS BAD AFTER UNDERFi OW. 


SEQ 0096 


CKFPBAO FP11F FLTG PNT PRT B 


115 SEE 
4050 024072 


4056 024114 
4057 
4058 024116 


4061 024130 
4062 
ne7 024132 


4066 
4067 
4068 024136 
4069 
024140 
mish 024142 
024144 


4075 024144 
x 024146 


8 
4079 024150 
080 


4090 024206 


4092 024210 
024216 


024220 
024220 


001007 
077303 
010102 
062702 
010237 
000112 


005761 


001002 


104155 
000733 


104156 
000731 


170204 
170305 


024210 


000030 
000004 


000054 
001236 


000046 


000200 
024210 


001250 
001254 


000050 


000000 


COMMENT ABOVE FOR TEST TITLE 


MACRO M1111 
15$: MOV #OVDTT,RO 
MOV R1_R2 
ADD #30,R2 
MOV #4 R3 
168: CMP (RO) +, (R2)+ 
BNE 17$ 
SOB R3, 16$ 
MOV R1,R2 
ADD #54,R2 
MOV R2,a4$TMP2 
JMP (Rd) 
17$: TST 46(R1) 
BNE 19$ 
18$: ERROR +155 
BR 4$ 
19$: 
208: ERROR +156 
BR 4$ 
: IF NO FP TRAP OCCURS COME HERE. 
25$: STFPS 
STST RS 
V #200,RO 
LDFPS 
MOV #OVDTT,RO 
STD ACO, (RO) 
MOV R4, a#STMP7 
MOV RS. aa$STMP1 1 
MOV R1_R2 
ADD #50,R2 
JMP (R2) 
000000 OVDTT: .WORD 0.0.0.0 
LLLDONE : 
RSETUP | 
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SEQ 0097 


SEE IF FAILURE IS ANTICIPATED 
AILURE. 


;BRANCH IF NOT ANTICIPATED. 


ERROR WAS ANTICIPATED SO RETURN 
;TO THE ERROR REPORT IN THE CALLING 


ROUTINE. 


;RESULT WAS NOT ANTICIPATED 

;SO0 ERROR MUST BE REPORTED HERE. 
sFIRST SEE IF ARGUMENTS SHOULD 
HAVE RESULTED IN OVERFLOW OR UNDER 
;FLOW BY LOOKING AT THE FLAG. 
;BRANCH IF UNDERFLOW EXPECTED. 


REPORT — INCORRECT, 


ba ad RESULT INCORRECT, EXPECTING 
; OVERFLOW. 


EXPECTING 


; UNDERFL 


:GET FPS. 
FEC. 


:GET 
:SET FD MODE. 
:GET THE RESULT. 


ZERRUR WAS ANTICIPATED SO 
;RETURN TO THE ERROR REPORT OF THE 
;CALLING ROUTINE. 


7GO INITIALIZE THE FPS AND STACK; 


a 


AND 


7SEE IF THE USER HAS EXPRESSED 


THE DESIRE TO CHANGE THE SOF TWARE 
:VIRTUAL CONSOLE SWITCH oe (HAS 
; THE USER TYPED CONTROL G?) 


fF SAHA AAARAEHAAEEAEAAAAAEEEHHARKRAHHARKRAARAARARERAAHARKeRKeKAReeNee 
















T16 







024222 


024224 


bhuibahbabahabah al 
ooo 
Mm 
* 
~Nm 
Nm 
o 


BREESE KR FEL 
ad ab ab ad ad ad anh ae ae a 


4123 024274 

4124 

4125 

4126 024274 
024274 

4127 024276 


CKFPBAO FP1IF FLTG PNT PRT B 
MODF TEST 


025310 
0600000 


000000 
000000 


000000 
177777 . 


177777 


025310 
076543 


000000 
000000 
000000 
076543 
177777 


MACRO M1171 


peTEst 16 


“ ATHIS IS A TEST OF 
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MODF TEST 
THE MODF INSTRUCTION, WHICH MAKES USE 0 


;*A SUBROUTINE TO SET UP THE OPERANDS, EXECUTE THE MODF INSTRUCT ION 
[*AND CHECK THE RESULTS. 
:% 


° 
5S RAAAARAAARARAAAARARAARRAERAARARAAAAAARARARRRARRHHARRARARARARRARAEE 


TST16: 


SCOPE 


s;MODF WITH (FSRC=AC=0) 
GGG1: 


9$: 
:MODF TEST, 
GGGe: 


WITH (FSRC=0) 


@4MODF SUB 
456,76543 


- alia 


;SET UP THE LOOP ON ERROR ADDRESS. 
ZAC 


sFSRC 

FRACTIONAL RES. 

: INTEGER RES. 

ERROR FRACTIONAL RES. 
ERROR INGETER RES. 
FPS BEFORE EXECUTION. 
;FPS AFTER EXECUTION. 
:STORE SINGLE ZERO BAD. 


sAC V 1 <= ZERO FAILED. 


;SET UP THE LOOP ON ERROR ADDRESS. 


ZAC 

sFSRC 

sFRACTIONAL RES. 

; INTEGER RESULT. 
;ERROR FRACTIONAL RES. 
sERROR INTEGER RES. 
sFPS BEFORE EXECUTION. 
sFPS AFTER EXECUTION. 
zSTORE ZERO FAILURE. 


SEQ 0098 





















4139 024344 

4140 

4141 

4142 024344 
024344 

4143 024346 


4153 024410 


025310 
000000 
021234 
siasia' 


000000 
177777 


9$: 


(Ac=0) 


PC, a4MODF SUB 
76543,21234 


:SET UP THE LOOP ON ERROR ADDRESS. 


sAC 
sFSRC 
;FRACTIONAL RES. 
; INTEGER RES. 
ZERROR FRACTIONAL RES. 
—— INTEGER RES. 
PS BEFORE EXECUTION. 

FPS AFTER EXECUTION, 
RES.8AD 


CKFPBAO FPI1F FLTG PNT 
T16 MODF TEST 


4154 024412 
ai22 024414 


4200 024576 
4201 

4202 024600 
4203 024602 
4204 024604 


4206 
4207 024604 


PRT B 


025310 
125252 
000000 


000000 
177777 
125252 
000000 


025310 
125252 
000000 
000000 
177777 
125252 
000000 


025310 
000001 
000000 
000000 
000001 
000000 
177777 


MACRO M1111 


9$: 
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ERROR 


+57 


eral TEST WITH EXPONENT OF THE RESULT = 25 


9$: 


9$: 


>MODF 
GGG?: 


BR 
ERROR 


SET UP THE LOOP ON ERROR ADDRESS. 


PC, A4MODF SUB 

46252,125252 AC 

40300,0 :FSRC 

sFRACTIONAL RES. 

; INTEGER RES. 

sERROR FRACTIONAL RES. 
‘ERROR INTEGER RES. 
‘FPS BEFORE EXECUTION. 
sFPS AFTER EXECUTION. 
+53 SST 134 


0.0 

46377 ,-1 
46252,125252 
40300,0 


EXPONENT OF THE RESULT = 127 


SET UP THE LOOP ON ERROR ADDRESS. 


PC, AAMODF SUB 
77652,125252  —: AC 
40300.0 :FSRC 
SFRACTIONAL RES. 
77777, -1 : INTEGER RES. 
77652.125252 ERROR FRACTIONAL RES 
40300.0 ERROR INTEGER RES. 


FPS BEFORE EXECUTION. 
SFPS AFTER EXECUTION. 


EXPONENT OF RESULT = 25 


;SET UP THE LOOP ON ERROR ADDRESS. 


PC, AAMODF SUB 

46200,1 ZAC 

40340,0 ZF SRC 

0,0 sFRACTIONAL RES. 
46340,1 ; INTEGER RES. 

40000,0 zERROR FRACTIONAL RES. 


o1,°1 ‘ps B INTEGER RES. 
sFPS AFTER ea 
+61 [BAD CONSTANT (NOT 24), 
95 :0R ST 525 TO 050 INTO 150. 


+54 


TEST WITH EXPONENT OF THE RESULT = 24 


SEQ 0099 


CKFPBAO FP11F FLTG PNT 
T16 MODF TEST 


4217 024646 
4218 

4219 024650 
4220 024652 
4 024654 


3 
4224 024654 


oso? 024774 
4255 

4256 024774 

4774 

4257 024776 

5 00. 


4260 025012 


104413 
004737 


PRT B 


025310 


025310 
177777 
000 


177777 


025310 
140001 


000 
177777 


025310 


MACRO M1111 


9$: 


9$: 


9$: 
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PC ,@4#MODF SUB 


46000, 1 
0 


+62 


9$ 
+54 


EXPONENT OF THE 


FC pes SUB 


62577,-1 
40200.0 
40177. 176000 


42577, 140000 


-1,°1 


-1,-1 


THE EXPONENT OF 


PC, a#MODF SUB 
42577. 140001 


34600,9 
42577. 140000 
of 1 


EXPONENT OF THE 


PC, a#MODF SUB 
42377, 100000 
40200.0 


ao 


SEQ 0100 
;SET UP THE LOOP ON ERROR ADDRESS. 


ZAC 

sF SRC 

sFRACTIONAL RES. 

; INTEGER RESULT. 

ZERROR FRACTIONAL RES. 
sERROR INTEGER RES. 

sFPS BEFORE EXECUTION. 

SFPS AFTER EXECUTION. 

‘BAD CONSTANT USED (NOT 24) 
;0R: ST 525 TO 150 INTO 050 


RESULT = 10 
:SET UP THE LOOP ON ERROR ADDRESS. 
sAC 


sFSRC 
;FRACTIONAL RES. 


SFPS AFTER EXECUTION. 


THE RESULT = 10 
;SET UP THE LOOP ON ERROR ADDRESS. 


sAC 

:FSR C 
sFRACTIONAL RES. 
; INTEGER RES. 


:FP 
FPS AFTER EXECUTION. 
:ST 532 TO 122 INTO NORMALIZE. 


RESULT = 9 
;SET UP THE LOOP ON ERROR ADDRESS. 
ZAC 


sFSRC 
;FRACTIONAL RES. 





T16 


MODF 
4261 025016 
4262 025022 
4263 OS 20¢8 
4264 025032 


4265 058034 
4266 036 
4269 025044 
4270 


4271 
4272 025044 
044 


4301 025164 
4302 


4303 

4304 025164 
025164 

4305 025166 

4306 025172 

4307 025176 

4308 025202 


4309 025206 
4310 025212 


4314 025226 


042377 


° 177777 


177777 
000013 
000004 
104053 
000401 
104054 


aa FPI1F FLTG PNT PRT B 
TEST 


100000 
177777 
177777 


025310 
177777 
000000 
177777 
000000 


000000 
177777 


025310 
177777 
000000 
177777 
000000 


000000 
177777 


025310 
000001 
000002 
000000 
000001 
000000 


MACRO M1111 


9$: 


9$: 


9$: 
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42377 ,100000 ; INTEGER RES. 

-1,°1 ERROR FRACTIONAL RES. 

=1 97 ERROR INTEGER RES. 
:FPS BEFORE EXECUTION. 
FPS AFTER EXECUTION. 


EXPONENT OF THE RESULT = 0 


;SET UP THE LOOP ON ERROR ADDRESS. 


PC, @4MODF SUB 

40177,- 1 ZAC 

40200,0 ZF SRC 

40177,-1 sFRACTIONAL RES. 


0,0 : INTEGER RES. 
0,0 ERROR FRACTIONAL RES. 
40177,-1 


364 “ST 041 TO 046 INTO 246. 
+64 


EXPONENT OF THE RESULT = ~-15 


SET UP THE LOOP ON ERROR ADDRESS. 


PC, a#MODF SUB 
34377,-1 ZAC 
40200,0 F 


7FSRC 
FRACTIONAL RES. 


“FPS AFTER EXECUTION. 


EXPONENT OF RESULT = -64, IN ROUND MODE 
;SET UP THE LOOP ON ERROR ADDRESS. 


PC, @#MODF SUB 
20000, 1 :AC 
40300.0 F SRC 
20100.2 “FRACTIONAL RES. 
0 ‘INTEGER RES. 
20100,1 *ERROR FRACTIONAL RES. 


0,0 [ERROR INTEGER RES. 
:FPS BEFORE EXECUTION. 
[FPS AFTER EXECUTION. 
+65 [ROUND TRUNK, ST 126 INTO ROUND. 


SEQ 0101 


CKFPBAO FP11F FLTG PNT 
T16 MODF TEST 


4315 025230 000401 

4316 025232 104054 

4317 025234 

4318 

4319 

4320 025234 
5234 

4321 025236 


025304 


01 
700 


PRT B 
025310 


170000 
000 


000366 


000200 


MACRO M1111 


;MODF TEST WITH 
GGG14: 


9$: 


3; THIS SUBROUTINE, MODF SUB, 
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9$ 


BR 
ERROR +54 


LPERR 
JSR PC, a#MODF SUB 
“WORD  142777,176000 
“WORD  40200,0 
“WORD  140000,0 
"WORD  142777.160000 
“WORD é 
WORD 42777. 160000 
10 
ERROR +66 

9$ 
ERROR +67 


JMP GGGDONE 


EXPONENT OF RESULT = 11 


;SET UP THE LOOP ON ERROR ADDRESS. 
sAC 

sFSRC 

sFRACTIONAL RES. 


“FP 
FPS AFTER EXECUTION. 
>SIGN OF FRACTION. 


7SIGN OF INTEGER. 
:GO TO NEXT TEST. 


IS CALLED TO SETUP THE 


TOPERANDS, EXECUTE THE MODF INSTRUCTION AND CHECK THE RESULTS. 
[IT IS CALLED THUS: 


THE OPERANDS 


ACARG: .WORD 
F SRCARG: . WORD 
FRES: . WORD 
INTRES: .WORD 
ERFRES: .WORD 
sees . WORD 

FPSB: . WORD 
FPSA: . WORD 
ERR1: ERROR 

BR 

ERR2: ERROR 
CONT: 


PART OF THE RESUL 


ARE SET UP (USING ACO FOR THE AC ARGUMENT). 
Ing rRuC 08 13 EXECUTED. THEN a | RESULTS ARE RETRIEVED. 


KX ;AC OPERAND 

xX 2F SRC OPE RAND 

x,X ;FRACTIONAL RESULT 
XX + INTEGER RESULT 

XX TERROR FRACTION RESULT 
x .X * ERROR INTEGER RESULT 
x 3FPS BEFORE EXECUTION 
x sFPS AFTER EXECUTION 
+X ;FRACTION ERROR 

CONT 

+X ; INTEGER ERROR 


RETURN ADDRESS 
THE MODF 


T IS COMPARED WITH FRES. IF THIS IS CORRECT 


; THEN THE INTEGER PART IS COMPARED WITH INTRES. IF BOTH OF THESE ARE CORRECT 
fem THE FPS IS COMPARED WITH hi” gt gh: EXECUTION IF NO ERRORS OCCURRED 


THEN MODFSUB WILL RETURN TO CON 


FPS WAS INCORRECT 


;1T IS REPORTED HERE. IF THE FRACTION IS INCORRECT IT IS + cae WITH 
;THE ANTICIPATED BAD FRACTION, ERFRES. IF THIS DOESN'T MATCH 


;THE TRUE RESULT THEN THE ERROR IS REPORTED HERE. 
;FAILURE MATCHES THE TRUE RESULT THEN 

[ERROR CAL - LIKEWISE IF THE INTEGER PART OF THE RESULT IS 
:NOT CORRECT THEN IT IS 


COMPARED 


IF THE ANTICIPATED 
TO THE 


MODF SUB PASSES CONTROL 


WITH THE ANTICIPATED INTEGER 


FAILURE. IF THIS DOEN'T MATCH THEN THE ERROR IS REPORTED HERE. 
+ ney MADE HOWEVER, MODFSUB WILL RETURN CONTROL TO THE ERROR 


MODF SUB : 


MOV 
MOV #200,RO0 


(SP)+,R1 


:GET A POINTER TO THE ARGUMENTS 
;SET FD MODE. 


SEQ 0102 


CKFPBAO FP11F FLTG PNT 
T16 MODF TEST 


4371 025316 


reo 025350 
4382 025354 
4383 

4384 625356 
4385 025360 
4386 364 


4390 025400 
4391 
4392 025402 


4404 

4405 025466 
4406 025472 
4407 025476 
4408 025500 
4409 025506 
4410 


4411 025510 


4416 
4417 025532 
4418 025536 


4419 
4420 025540 
4421 
4422 
4423 025544 
4424 025550 
4425 025552 


4426 025560 
4427 025562 


174110 


010102 
010237 
062702 


016137 
012702 





PRT B 


025666 
000030 
025354 
000004 


000200 
025646 
025656 


000012 
025656 
000014 
000016 


000032 


"000042 


000020 
000022 


M 8 
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LDFPS RO 
V 1,R 
LDD (RO) ,ACO 
MOV #MODP1,RO 
LDD (RO) ACI 
V 30(R1),RO 
LDFPS RO 
001236 V #1$, a4STMP2 
MOV R1,RO 
ADD #4,R0 
1$: MODF (RO) ,ACO 
STFPS 
V #200,RO 
LDFPS 
V AMODFTO,RO 
STD ACO, (RO) 
MOV FT1, 
STD AC1, (RO) 
MOV R1,R2 
MOV R2.a#STMP3 
ADD #4>R 
MOV R2. aASTMP4 
ADD #4,R2 
MOV R2. a4STMPS 
ADD #4,R2 
MOV R2. aASTMP6 
001250 MOV AMODF TO, aS TMP7 
001252 MOV #MODFT1. a#$TMP10 
MOV R4, @ASTMP11 
001256 MOV 32(R1) ,@a#STMP12 
MOV #MODFTO,R2 
CMP 10(R1), (R2) 
BNE 10$ 
000002 CMP 12(R1) ,2(R2) 
BNE 10$ 
MOV #MODFT1,R2 
CMP 14(R1), (R2) 
BNE 15 
000002 CMP 16(R1) ,2(R2) 
BNE 15$ 
CMP 32(R1) RG 
BNE 20$ 
9$: JMP 42(R1) 
: FRACTIONAL ERROR. 
108: CMP 20(R1), (R2) 
000002 CMP 22(R1),.2(R2) 
BNE 11$ 


MOV R1,R2 


;SET UP ACO 
PUT A BACKROUND PATTERN INTO AC1. 
SET UP THE FPS. 


; COMPUTE THE ADDRESS OF THE FSRC. 


sEXECUTE THE TEST INSTRUCTION. 


:GET THE FPS. 
;SET FD MODE. 


;GET THE FRACTIONAL RESULT. 
;GET THE INTEGER RESULT. 


;SAVE THE DATA IN CASE OF ERROR. 


CHECK THE FRACTIONAL RESULT. 
;BRANCH IF INCORRECT. 


;CHECK THE INTEGER RESULT. 
;BRANCH IF INCORRECT. 


;CHECK THE FPS. 
BRANCH IF INCORRECT. 


;RETURN. 


WAS THE ERROR ANTICIPATED? 
BRANCH IF NOT ANTICIPATED. 


THE ERROR WAS ANTICIPATED SO 


SEQ 0103 


N 8 
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T16 MODF TEST 


SEQ 0104 
4428 025564 062702 000034 ADD #34,R2 ;RETURN TO THE ERROR REPORT AT THE 
*CALLING ROUTINE. 
4430 025570 000112 JMP (R2) 
4432 025572 11$: :THE ERROR WAS NOT ANTICIPATED SO 
4433 025572 104053 12$: ERROR +53 “REPORT THE INCORRECT FRACTION HERE. 
4634 025574 000761 BR 9$ 
4436 . : INTEGER ERROR. 
4039 025576 026112 000024 15$: CMP 24(R1), (K2) :WAS THIS ERROR ANTICIPATED? 
4438 025602 001010 ° BNE 16$ ‘BRANCH IF NOT. 
4439 025604 026162 000026 000002 CMP 26(R1), 2(R2) 
4440 025612 001004 BNE 16$ 
4441 025614 010102 MOV R1,R2 ; THE ERROR WAS ANTICIAPTED SO RETURN 
debe 025616 062702 000040 ADD #40,R2 TO THE ERROR REPORT IN THE CALLING 
Peres 025622 000112 JMP (R2) ; , 
4446 025624 16$: ; THE ERROR WAS NOT ANTICIPATED SO REPORT 
4447 025624 10405« 17$: ERROR +54 ‘THE INTEGER FAILURE HERE. 
4648 025626 000744 BR 9$ 
4450 sFPS INCORRECT. 
4451 025630 010437 001254 20$: MOV R4,a4$STMP11 ;REPORT INCORRECT FPS. 
4452 025634 016137 000032 001256 MOV 32(R1), aeSTMPT2 
4453 025642 104055 21$: ERROR 
445% 025644 000735 BR 8 
4456 025646 000000 000000 000000 MODFTO: .WORD 0,0,0.0 
wen 025654 000000 
4458 025656 000000 900000 000000 MODFI1: .wORD 0,0,0.0 
ae 025664 000000 
4460 025666 177777 177777 177777 MODP1: .WORD -1,-1,-1,-1 
025674 177777 
4461 . 
4462 025676 GGGDONE : 
025676 104412 RSE TUP :GO INITIALIZE THE FPS AND STACK; AND 
“SEE IF THE USER HAS EXPRESSED 
‘THE DESIRE TO CHANGE THE SOFTWARE 
, ‘VIRTUAL CONSOLE SWITCH REGISTER (HAS 
*THE USER TYPED CONTROL G?). 
4463 
4464 
4465 
4473 
4476 © ee Be he Re eR i TITRE ER EEE KEKEEKEEEKEEKE ERE ER ERE 
:STEST 17 MODD TEST 
‘THIS IS A TEST OF THE MODD INSTRUCTION. IT MAKES USE OF A SUBROUTINE 
**TO SET UP THE ARGUMENTS, EXECUTE THE INSTRUCTION AND CHECK THE 
> *RESULTS. 
°& 
PETIT TT it titi titi t iti iit iti t titi iii titi i iit itt i ett i iit 
025700 000004 TST17: SCOPE 


4475 


g e 
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117 MODD TEST SEQ 0105 


4476 sMODD WITH (FSRC=AC=0) 
4477 Og 2708 HHH ] : 


025 104413 LPERR ;SET UP THE LOOP ON ERROR ADDRESS. 
4478 025704 004737 027406 JSR PC, @4MODDSUB 
4479 025710 000000 000000 000000 1S: .WORD 0,0,0,0 ZAC 
025716 000000 
4480 025720 000000 000000 000000 2s: .WORD 0,0,0,0 SF SRC 
025726 000000 
4481 025730 000000 000000 000000 3s: .WORD 0,0,0,0 : FRACTIONAL RES. 
025736 000000 
4482 925740 000000 000000 000000 4s: .WORD 0,0,0,0 Z INTEGER RES. 
4483 025750 §00000 000000 000000 5$: .WORD 0,0,0,0 ;ERROR FRACTIONAL RES. 
025756 000000 
4484 025760 000000 000000 177777 6%: . WORD 0,0,-1,-1 ;ERROR INTEGER RES. 
025766 177777 
4485 025770 000200 7$. 200 :FPS BEFORE EXECUTION. 
4486 025772 000204 204 ‘FPS AFTER EXECUTION. 
4487 025774 104070 8$: ERROR +70 
4488 025776 000401 BR 9$ 
4489 026000 104074 ERROR +74 :ST 231 TO 142 INTO 143 
4490 026002 9$: 
4491 
4492 :MODD TEST WITH FSRC=0 
4493 026002 HHH2 : 
026002 104413 LPERR SET UP THE LOOP ON ERROR ADDRESS. 
4494 026004 094737 027406 JSR PC, a#MODDSUB 
4495 026010 012345 067012 1$: “WORD 012345,67012 =: AC 
449% 026014 034567 012345 "WORD  36567,012345 
4497 026020 000000 000000 000000 2s: “WORD 0,0,0.0 :F SRC 
026026 000000 
4498 026030 000000 000000 000000 3s: .WORD 0,0,0,0 :FRACTIONAL RES. 
026036 000000 
4499 026040 000000 000900 000000 4s: .WORD 0,0,0,0 : INTEGER RES. 
4500 026050 012345 067012 5$: WORD 012345,67012 ;ERROR FRACTIONAL RES. 
4501 026054 034567 012345 "WORD 36567,012345 
4502 026060 177777 177777 177777 6$: . WORD -1,-1,-1,-1 sERROR INTEGER RES. 
026066 177777 
4503 026070 000213 7$: 213 sFPS BEFORE EXECUTION. 
4504 026072 000204 204 ‘FPS AFTER EXECUTION. 
4505 026074 104075 8$: ERROR +75 STORE DOUBLE ZERO 
4506 026076 000401 BR 9$ 
4507 026100 104076 ERROR +76 ZAC V 1 <= ZERO ST 143 
4508 026102 9$: 
4509 
4510 sMODD TEST WITH (AC=0) 
4511 026102 HHH3: 
026102 104413 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
4512 026104 004737 027406 JSR PC, a#MODDSUB 
4513 026110 000000 000000 000000 1S: .WORD 0,0,0,0 AC 
4514 026120 072727 127272 2s: .WORD 72727,127272 —: FSRC 
4515 026124 072727 127272 "WORD 72727.127272 
4516 026130 000000 000000 000000 38: “WORD 0,0,0.0 : FRACTIONAL RES. 
026136 000000 
4517 026140 000000 000000 000000 4$: .WORD 0,0,0,0 : INTEGER RES. 
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026146 

4518 026150 
4519 026160 
166 

4520 026170 


4524 
4525 026202 
4526 


4527 
4528 026202 
202 


026226 

4533 asoce? 
4534 026240 
026246 

4535 026250 
4536 026254 
4537 026260 
6266 

4538 026270 


4542 026300 
4543 026302 
4544 
4545 
4546 026302 
026302 
4547 026304 
4548 026310 
026316 
4549 026320 
4550 026324 
4551 026330 
026336 
4552 026340 
4553 026344 
4554 aseeee 


4562 026402 


PRT B 


177777 
177777 


177777 
0 
252 
777 


125 
177 


027406 
000000 


146314 
167737 
000000 


177777 
125726 
177777 


177777 
125726 


MACRO M1111 
177777 5$: 
177777 6$: 
7$: 
8$: 
9$: 


000000 
000000 
177777 


177777 


000000 


000000 


177777 


;MODD TEST WITH 
HHH<4 : 


1$: 
2s: 
3$: 
4$: 
5$: 
6$: 
7$: 
8$: 


9$: 
sMODD TEST WITH 
HHH5: 


1$: 
2s: 
3$: 
4$: 
5$: 
6$: 
7$: 
8$: 


9$: 


C 6 
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SEQ 0106 


-1,-1,-1,-1 
-1,-1,-1,-1 


;ERROR FRACTIONAL RES. 
;ERROR INTEGER RES. 


:FPS BEFORE EXECUTION. 
FPS AFTER EXECUTION. 


+70 
9$ 
+71 
EXPONENT OF THE RESULT = 57 
;SET UP THE LOOP ON ERROR ADDRESS. 
PC, a#MODDSUB 
56252,125252 AC 
125252,125250 
40300,0,0,0 F SRC 
0,0.0,0 sFRACTIONAL RES. 


56377,-1,-1,-4 ; INTEGER RES. 


0,0 ZERROR FRACTIONAL RES. 
125252,125252 
56377,-1,-1,-1 ;:ERROR INTEGER RES. 
:FPS BEFORE EXECUTION. 
‘FPS AFTER EXECUTION. 
= 7ST 526 TO 134 INTO 135 
+77 
EXPONENT OF THE RESULT = 79 
;SET UP THE LOOP ON ERROR ADDRESS. 
PC, a4MODDSUB 
140240,0,0,0 ;AC 
63714,1466314  :FSRC 


133572,167737 


e e e 


FRACTIONAL RES. 
7 INTEGER RES. 


163777,-1 
162531,125726 
#701 ,~1 1 ERROR FRACTIONAL RES. 


63777,-1 ERROR INTEGER RES. 
162531,125726 
3FPS BEFORE EXECUTION. 
sFPS AFTER EXECUTION. 
+70 
9$ 
+100 3ST 526 BAD SIGN 






















D 
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4563 


4564 ;MODD TEST WITH EXPONENT OF THE RESULT = 57 
4565 026402 HHH6 : 


026402 104413 LPERR ;SET UP THE LOOP ON ERROR ADDRESS. 
4566 026404 004737 027406 JSR PC ae te 
4567 026410 056200 000000 000000 1$: -WORD 56200,0,0,1 sAC 
026416 000001 
4568 026420 040340 000000 000000 2$: -WORD  40340,0,0,0 sF SRC 
026426 000000 
4569 aseres 000000 000000 000000 3$: -WORD 0,0,0,0 sFRACTIONAL RES. 
4570 026440 goon 000000 000000 4$: -WORD 56540,0,0,1 : INTEGER RES. 
4571 ootod essai 000000 000000 5$: -WORD 40000,0,0,0 ERROR FRACTIONAL RES. 
4572 026460 056340 000000 000000 68: -WORD 56340,0,0,1 ERROR INTEGER RES. 
026466 000001 
4573 026470 000213 7$: 213 :FPS BEFORE EXECUTION. 
4574 026472 000204 204 sFPS AFTER ap ak ae 
4575 026474 104101 8$: ERROR +101 ;CONSTANT BAD ( 


T 56) 
:OR ST 525 TO 050 INTO 150 


4576 

4577 026476 000401 BR 9$ 
4578 026500 104101 ERROR +101 
pi te 026502 9$: 


4581 sMODD TEST WITH EXPONENT OF THE RESULT = 56 
4582 026502 HHH7 : 
026502 104413 LPERR 3SET UP THE LOOP ON ERROR ADDRESS. 
4583 026504 004737 027406 JSR PC, @4M0DDSUB 
4584 026510 056000 000000 000000 1$: -WORD 56000,0,0,1 ZAC 
026516 000001 
4585 026520 040340 000000 000000 2%: -WORD 40340,0,0,0 sF SRC 
4586 yeh 040100 000000 000000 3$: -WORD 40100,0,0.0 ;FRACTIONAL RES. 
4587 026540 056140 000000 000000 4$: -WORD 56140,0,0,1 ; INTEGER RES. 
026546 000001 
4588 026550 000000 000000 000000 S$: -WORD 0,0,0.0 ;ERROR FRACTIONAL RES. 
026556 000000 
4589 026560 poole 000000 000000 6$: -WORD 56140,0,0,1 ;ERROR INTEGER RES. 


4590 026570 213 FPS BEFORE EXECUTION. 
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4592 026572 
4593 026574 
4594 
4595 026576 
4596 026600 
4597 026602 
4598 
4599 


re bf 026702 


5 
4616 026702 


462 6772 
4628 026774 
4629 


4639 026776 
463i 027000 


4632 
4633 027002 
4634 


4635 
4636 027002 


000200 
104102 


0004 
104102 


PRT B 


027406 
177777 


000000 
177760 
177777 
177777 
177777 


027406 
000000 


177777 
000001 
177777 
000000 
000000 
177777 


MACRO M1111 


177777 
000000 
000000 
177760 
177777 
177777 


000000 


000000 


000000 
177777 


8$: 


93: 
sMODD TEST WITH 
HHHB8 : 


1$: 
2s: 
3$: 
4$: 
5$: 
6$: 
7$: 
8$: 


9$: 
sMODD TEST WITH 
HHH9 : 


1$: 
2s: 
3$: 
4$: 
5$: 
6$: 
7$: 
8$: 


9o$: 
sMODD TEST WITH EXPONENT OF THE 
HHH10: 


18=SEP=79 13:43 


200 
ERROR 


BR 
ERROR 


+102 


9$ 
+102 


EXPONENT OF THE 


PC, @MODDSUB 
51477,-1,-1,-1 


40200,0,0,0 


40177,-20,0,0 
51177,-1,-20,0 


<1,-1,-1,-1 
-1,-1,-1,-1 


EXPONENT OF THE 


PC ,@#MODDSUB 


40200,0,0,0 


47577,-1 
176000, 1 
31600.0,0,0 


47577,-1 
1760000 


* e * 


47577 ,-1,-1,-1 


+103 


9$ 
+104 


. * 
PAGE 16 


sFPS AFTER spd a 
:BAD CONSTANT (NOT 56) OR 
ST 525 TO 150° INTO 350. 


RESULT = 36 


SET UP THE LOOP ON ERROR ADDRESS. 


ZAC 

3F SRC 

;FRACTIONAL RES. 

; INTEGER RES. 

;ERROR FRACTIONAL RES. 
;ERROR INTEGER RES. 


FPS BEFORE EXECUTION. 
FPS AFTER EXECUTION. 


RESULT = 30 


;SET UP THE LOOP ON ERROR ADDRESS. 


ZAC 
ZF SRC 
sFRACTIONAL RES. 
: INTEGER RES. 
ZERROR FRACTIONAL RES. 
ZERROR INTEGER RES. 

zFPS BEFORE EXECUTION. 

sFPS AFTER EXECUT 

7 (NORMALIZE) ST $5" To 122 
‘INTO NORM. 
sAC V1 <= X14 
OR ST 733 TO 156 INTO 157. 


RESULT = 31 


SEQ 0108 
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027002 104413 

4637 027004 004737 
4638 027010 047777 
4639 027014 177000 
4640 027020 040200 
0270 000000 

4641 027030 000000 
0270 000000 

4642 027040 047777 
4643 027044 177000 
4644 027050 000000 
027056 000000 

4645 027060 177777 
027066 177777 

4646 027070 000213 
4647 027072 000204 
4648 027074 104105 
4649 027076 000401 
4650 027100 104071 


4651 027102 
4652 
4655 
4654 027102 
027102 
4655 027104 37 
4656 027110 040200 
027116 000000 
4657 027120 040177 
4658 027124 127272 
4659 027130 040177 
4660 


9027134 127272 
4661 027140 000000 


4669 027202 
4670 


4671 
4672 Oe 70S 


027246 
4680 027250 177777 


177777 
000000 
006000 
177777 


027406 
000000 


072727 


177777 
000000 


177777 
052525 
000000 


177777 





ro 
MACRO M1111 18-SEP-79 13:43 PAGE 16-1 


SEQ 0109 
LPERR ;SET UP THE LOOP ON ERROR ADDRESS. 
JSR PC, a#MODDSUB 
1$: “WORD 47777,=1 ZAC 
“wORD  177000,0 
000000 2%: “wORD 40200,0,0,0 sF SRC 
000000 3$: .WORD 0,0,0,0 :FRACTIGNAL RES. 
4$: -WORD 67777,-1 : INTEGER RES. 
“WORD 177000,0 
177000 5$: “WORD 0,0,177000,0 =; ERROR FRACTIONAL RES. 
177777 6%: ,WORD  -1,-1,-1,-1 sERROR INTEGER RES. 
7$: 213 :FPS BEFORE EXECUTION. 
204 ‘FPS AFTER EXECUTION. 
8$: ERROR +105 ‘(BUT FD) STORE x10 
BR 9$ 
ERROR +71 
9$: 
;mODD TEST WITH EXPONENT OF THE RESULT = 0 
HHH11: 
LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
JSR PC, a4#MODDSUB 
000000 1$: “WORD 40200,0,0,0 ZAC 
2$: .WORD  40177,72727 F SRC 
“WORD  127272,72727 
3$: "WORD  40177,72727 :FRACTIONAL RES. 
“WORD 127272,72727 
000000 4$: “WORD 0,0,0,0 : INTEGER RES. 
177777 5$: .WORD 1, «1-1-1 ZERROR FRACTIONAL RES. 
177777 68: .WORD 0.0,-1,-1 :ERROR INTEGER RES. : 
7$: 200 :FPS BEFORE EXECUTION. 
200 [FPS AFTER EXECUTION, 
8$: ERROR +70 
BR 9$ 
9$ ERROR +106 :ST 246 TO 126 INTO 127 (BUT FD) 
;moDD TEST WITH EXPONENT OF THE RESULT = -115 
H 5 
LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
JSR PC, a#MODDSUB 
1$: “WORD 3377,-1 ZAC 
“WORD =1,52525 
000000 2$: “WORD  40200,0,0,0 F SRC 
3$: .WORD 3377,-1 :FRACTIONAL RES. 
“WORD = =1,52525 
000000 4$: “WORD 0,0,0,0 : INTEGER RES. 


177777 =5$: eWORD -1,-1,-1,>1 ERROR FRACTIONAL RES. 
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027256 177777 
4681 027260_000000 
177777 
000200 


4685 027276 00040 
027 104107 

4687 027302 

4688 

4689 

4690 02730 


4691 304 
4692 027310 040300 
27316 
4693 027320 020200 
027326 
4694 027330 020300 
027336 000002 
4695 027340 000000 
027346 000000 
4696 027350 000000 


4703 027402 000137 


PRT B 


000000 


027406 
000000 


000000 
000000 
000000 
000000 
177777 


030004 
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177777 


000000 
000000 
000000 
000000 
177777 
177777 


SEQ 0110 
68: .WORD 0,0,-1,-1 sERROR INTEGER RES. 
7$: 200 :FPS BEFORE EXECUTION. 
200 “FPS AFTER EXECUTION. 
ot ERROR +70 
BR 9$ 
- ERROR +107 :ST 446 TO 126 INTO 127 (BUT FD) 
:MODD TEST WITH EXPONENT OF THE RESULT = -63, IN ROUND MODE. 
HHH 1 5: 
LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
JSR PC aeMODDSLB 
1$: “WORD 40300,0,0,0 AC 
2$: .WORD  20200,0,0.1 :F SRC 
3$: .WORD  20300,0,0.2 ZFRACTIONAL RES. 
4$: .WORD 0,0,0,0 : INTEGER RES. 
S$: .WORD 0,0.-1,-1 sERROR FRACTIONAL RES. 
6$: .WORD  - =1,<1,-1,21 :ERROR INTEGER RES. 
7$: 200 :FPS BEFORE EXECUTION. 
200 “FPS AFTER EXECUTION. 
8%: ERROR +110 ‘ST 127 INTO RND/TR 
BR 93 
ERROR +71 
9$: JMP @AHHHD ONE :GO TO THE NEXT TEST. 


; THIS SUBROUTINE, MODDSUB, IS CALLED TO SETUP THE 
ZS OPERANDS, EXECUTE THE MODD INSTRUCTION AND CHECK THE RESULTS. 
:1T IS CALLED THUS: 


ACARG: .WORD X,X,X,X ;AC_OPERAND 
FSRCARG:.WORD X,X,X,X 7FSRC_OPERAND 
FRES: «WORD X,X,X,X FRACTIONAL RESULT 
INTRES: .WORD X,X,X,X ; INTEGER RESULT 
ERFRES: .WORD X,X,X,X ERROR FRACTION RESULT 
ERINTRES:.WORD X,X,X,X ERROR INTEGER RESULT 
FPSB: «WORD xX :FPS BEFORE EXECUTION 
FPSA: «WORD xX FPS AFTER EXECUTION 
ERR1: ERROR +X FRACTION ERROR 
BR CONT 
; ERR2: ERROR +X ; INTEGER ERROR 
3 CONT : ;RETURN ADDRESS 


; THE OPERANDS ARE SET UP (USING ACO FOR THE AC ARGUMENT). THE MODD 
; INSTRUCTION IS EXECUTED. THEN THE RESULTS ARE RETRIEVED. 
; THE FRACTION PART OF THE RESULT IS COMPARED WITH FRES. IF THIS IS CORRECT 
; THEN THE INTEGER PART IS COMPARED WITH INTRES. IF BOTH OF THESE ARE CORRECT 
Poe THE FPS IS COMPARED WITH FPSA, AFTER EXECUTION IF NO ERRORS OCCURRED 
THEN MODDSUB WILL RETURN TO CONT. IF THE FPS WAS INCORRECT 
SIT IS REPORTED HERE. IF THE FRACTION IS INCORRECT IT IS COMPARED wITh . 





H 9 
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SEQ 0171 
4729 :THE ANTICIPATED BAD FRACTION, ERFRES. IF THIS DOESN'T MATCH 
4730 :THE TRUE RESULT THEN THE ERROR IS REPORTED HERE. IF THE ANTICIPATED 
4731 . “FAILURE MATCHES THE TRUE RESULT THEN MODDSUB PASSES CONTROL TO THE 
4732 are CALL AT ERR1. LIKEWISE IF THE INTEGER PART OF THE RESULT IS 
4733 T CORRECT THEN IT IS COMPARED WITH THE ANTICIPATED INTEGER 
4734 FAILURE. IF THIS DOEN'T MATCH THEN THE ERROR IS REPORTED HERE. 
4735 ‘IF A MATCH IS MADE HOWEVER, MODDSUB WILL RETURN CONTROL TO THE ERROR 
pet] CALL AT ERR2. 
4738 027406 012601 MODD SUB: MOV (SP)+,R1 ;GET A POINTER TO THE ARGUMENTS 
4739 027410 012700 000200 MOV #200,RO :SET FD MODE. 
4740 027414 170100 LDFPS RO 
4741 027416 010100 MOV R1,RO :SET UP ACO 
4742 027420 172410 LDD (RO) ,ACO ; 
4743 027422 012700 025666 MOV #MODP1 RO ;PUT A BACKROUND PATTERN INTO AC1. 
4744 027426 172510 LDD (RO) ACT 
4745 027430 016100 000060 MOV 60(R1) RO :SET UP THE FPS. 
4746 027434 170100 LDFPS RO 
4747 027436 012737 027452 001236 MOV #1$,a"STMP2 
4748 027444 010100 MOV R1,RO ; COMPUTE THE ADDRESS OF THE FSRC. 
4749 027446 062700 000010 ADD #10,RO 
rity 027452 171410 1$: MODD (RO) ,ACO EXECUTE THE TEST INSTRUCTION. 
4753 027454 170204 STFPS RG :GET THE FPS. 
4754 027456 012700 000200 MOV #200,RO “SET FD MODE. 
4755 027462 170100 LDFPS RO 
4756 027464 012700 027764 MOV #MODDTO,RO :GET THE FRACTIONAL RESULT. 
4757 027470 174010 STD ACO, (RO) 
4758 027472 012700 027774 MOV #MODDT1,RO :GET THE INTEGER RESULT. 
4759 027476 174110 ; STD AC1, (RO) - 
4761 027500 010102 MOV R1,R2 ZSAVE THE DATA IN CASE OF ERROR. 
4762 027502 010237 001240 MOV R2. aASTMP3 
4763 027506 70, 0 ADD 
4764 027512 010237 001242 MOV R2, aASTMPS 
4765 027516 ADD 
4766 027522 010237 001244 MOV R2, @A#STMPS 
4767 027526 02 0 ADD x 
4768 027532 010237 001246 MOV R2, a#STMP6 
4769 027536 012737 027764 001250 MOV #MODDTO, a#$TMP7 
4770 027544 012737 027774 001252 MOV #MODDT 1. a#$TMP10 
4771 027552 016137 000062 001256 MOV 62(R1) ,a#$TMP12 
477e 027560 010437 001254 MOV RG, aASTMP11 
4774 027564 012702 027764 MOV #MODDTO,R2 CHECK THE FRACTIONAL RESULT. 
4775 027570 010103 MOV R1,R3 
4776 027572 062703 000020 ADD #20,R3 
4777 027576 012705 000004 MOV #4.R5 
4778 027602 022223 2$: CMP (R2)+, (R3)+ 
4779 027604 001020 BNE 10$ :BRANCH IF INCORRECT. 
4780 027606 077503 SOB R5,2$ 
4782 027610 012702 027774 MOV AMODDT1.R2 ZCHECK THE INTEGER RESULT. 
4783 027614 010103 MOV R1.R3 
4784 027616 062703 000030 ADD #30,R3 


4785 027622 012705 000004 MOV #4 ,R5 
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4786 027626 
4787 027630 
“fee 027632 


4805 027674 
806 
4807 027700 
808 


4818 027724 
4819 027726 
4820 027730 
4821 027732 
4822 027734 
4823 

4824 027740 
4825 

4826 027742 


4827 027742 
4828 027744 
4829 


4830 

4831 027746 

4834 027762 

4835 

4836 027764 
027772 

4837 

4838 027774 
030002 


4839 
4840 030004 


022223 
001026 
077508 


026104 000062 
001042 


000161 000072 


012702 027764 
010103 
062703 000040 
012705 000004 
022223 
001005 
077503 
010102 
062702 000064 
000112 
104070 
000756 
012702 027774 
010163 
062703 000050 
012705-~- 000004 
022223 
001005 
077503 
010102 
062702 000070 
000112 


104071 
000736 


010437 001254 
016137 000062 
104072 
000727 


000000 000000 
000000 


000000 000000 
000000 
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MACRO M1111 
3$: CMP (R2)+, (R3)* 
BNE 15$ 
SOB R5,3$ 
CMP 62(R1) RS 
BNE 20$ 
9$: JMP 72(R1) 
: FRACTIONAL ERROR 
10$: MOV AMODDTO,R2 
MOV 1,R3 
ADD #40,R3 
MOV #4 R5 
50$: CMP (Re)+, (R3)+ 
BNE 11$ 
50B RS, 50$ 
MOV R1_R2 
ADD . #64 ,R2 
JMP (R2) 
11$: 
12$: ERROR +70 
BR 9$ 
: INTEGER ERROR. 
15$: | MOV #MODDT1,R2 
MOV R1,R3 
ADD #50 R3 
MOV #6 RS 
60$: C (Re) +, (R3)+ 
BNE 17 
SOB R5, 60s 
MOV R1.R2 
ADD #70,R2 
JMP (R2) 
16$: 
178: ERROR +71 
BR 9$ 
:FPS INCORRECT. 
0$: MOV R4,av$TMP11 
001256 MOV 62(R1) ,aa$IMP12 
21$: ERROR +72 
BR 9% 
000000 MODDTO: .WORD O,0,0,0 
000000 -WORD 0,0,0,0 


MODDT1: 


HHHDONE : 


;BRANCH IF INCORRECT. 


;CHECK THE FPS. 
BRANCH IF INCORRECT. 


RETURN. 


;WAS THE FRACTIONAL ERROR ANTICIPATED? 


;BRANCH IF NOT ANTICIPATED. 
THE ERROR WAS ANTICIPATED SO 


[RETURN TO THE ERROR REPORT AT THE 
; CALLING ROUTINE. 


;THE ERROR WAS NOT ANTICIPATED SO 
SREPORT THE INCORRECT FRACTION HERE. 


;WAS THE INTEGER ERROR ANTICIPATED? 


;BRANCH IF NOT ANTICIPATED. 
;THE ERROR WAS ANTICIAPTED SO RETURN 


:T0 THE ERROR REPORT IN THE CALLING 
;ROUTINE. 


; THE ERROR WAS NOT ANTICIPATED SO REPORT 
;THE INTEGER FAILURE HERE. 


REPORT INCORRECT FPS. 


SEQ 011 


es Te eee 
| 


1 
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030004 104412 RSETUP 3GO_ INITIALIZE THE FPS AND STACK; AND 
;SEE IF THE USER HAS EXPRESSED 
; THE DESIRE TO CHANGE THE SOF TWARE 
[VIRTUAL CONSOLE SWITCH + dea (HAS 
:THE USER TYPED CONTROL G?). 


4861 
442 
aBsi 
4852 sTEST TITLE:UNDER/OVERFLOW, USING MODF WITH TRAPS DISABLED 
4853 TPRPRBRAAAAAAAAAALASLASLAALALASSLASAS ESE SRE SSR SERRE RRR RRR RRS ERAS SSE SG 
: TEST 20 SEE COMMENT ABOVE FOR TEST TITLE 
‘THIS IS A TEST OF THE MODF OVERFLOW AND UNDERFLOW CONDITIONS. IT MAKES 
>*USE OF A SUBROUTINE TO SETUP THE OPERANDS, EXECUTE THE MODF INSTRUCTION 
SAND CHECK THE RESULTS. TRAPS ARE DISABLED DURING THIS TEST. 
** 
TAC I OI IIIISISISIISIIOIOIOIIIIIOIOIIOIOOIOIOIOIOIOIIUIIUIDIDIDIDIUIDISIEISIIDOI IID 
fie 030006 000004 TST20: SCOPE 
4855 ;UNDERFLOW TEST, WITH EXPONENT OF THE RESULT = -129, FIU = 1, FID = 1 
4856 030010 MyM 1 : 
030010 104413 LPERR :;SET UP THE LOOP ON ERROR ADDRESS. 
4857 030012 004767 000320 JSR PC ,MODF OV 
4858 030016 020123 045676 1$: -WORD  20123,45676 AC 
4859 030022 020200 000000 2$: “WORD  20200,0 *FSRC 
4860 030026 000123 045676 3$: “WORD 123,45676 =FRACTIONAL RES. 
4861 030032 000000 000000 4$: .wORD 0,0 S INTEGER RES. 
4862 030036 177777 177777 S$: “WORD <-1,-1 TERROR FRACTIONAL RES. 
4863 030042 177777 177777 6$: “WORD -1,=1 TERROR INTEGER RES. 
4864 030046 042000 7$: 42000 ‘FPS BEFORE EXECUTION. 
4865 030050 142004 142004 iFPS AFTER EXECUTION. 
4866 030052 000012 12 FEC 
030054 104170 8$: ERROR +170 “FEC INCORRECT, UNDERFLOW. 
4868 030056 000401 BR $ 
4869 030060 104171 ERROR +171 sAC V 1 (2,3) <= ZERO, ST 126. 
4870 030062 9$: 
4872 ;UNDERFLOW EXP OF RESULT = -193, FIU = 0, FID = 1 
4873 030062 MMM : 
030062 104413 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
4874 030064 004737 030336 JSR PC, a#MODF OV 
4875 030070 010200 000000 1$: .WORD  10200,0 AC 
4876 030074 010000 000000 2$: “WORD  10000.0 SF SRC 
4877 030100 000000 000000 3$: “WORD 0,0 [FRACTIONAL RES. 
4878 030104 000000 000000 4$: “WORD 0,0 S INTEGER RES. 
79 030110 177777 177777 5$: “WORD -1,-1 “ERROR FRACTIONAL RES. 
4880 030114 177777 177777 6$: “WORD -1.-1 ‘ERROR INTEGER RES. 
4881 030120 005013 7$: 5013 [FPS BEFORE EXECUTION. 
030122 005004 5004 ‘FPS AFTER EXECUTION. 
4883 030124 000012 12 FEC 
4884 030126 000240 8S: NOP 
4885 030130 000401 BR 9$ 
4886 030132 104171 ERROR +171 
4887 030134 9$: 
4888 


4889 OVERFLOW TEST WITH EXPONENT OF THE RESULT = 128, FIV = 1, FID = 1 
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T20 SEE COMMENT ABOVE FOR TEST TITLE SEQ 0114 
4890 030134 MMM : 
030134 104413 LPERR ;SET UP THE LOO® ON ERROR ADDRESS. 
4891 030136 004737 030336 JSR PC, a#MODF OV 
4892 030142 060052 125252 1$: “WORD 60052,125252 =: AC 
4893 030146 060200 000000 2$: “WORD 60200.0 :FSRC 
4894 030152 000000 000000 3$: -WORD 0 SFRACTIONAL RES. 
4895 030156 000052 125252 4$: “WORD 52,125252 S INTEGER RES. 
48% 030162 000000 5$: ;wORD 0,0 TERROR FRACTIONAL RES. 
4897 030166 000000 000000 6$: “WORD 0,0 TERROR INTEGER RES. 
4898 030172 041000 7$: 41000 ‘FPS BEFORE EXECUTION. 
4899 030174 141006 141006 ‘FPS AFTER EXECUTION. 
4900 030176 000010 10 : 
1 030200 104172 8$: ERROR +172 [BAD FEC ON OVERFLOW. 
4902 030202 000401 BR 9$ 
4903 030204 104173 ERROR +173 7ST 520 TO STORE ZERO TWICE 
4904 :INIO 162 
4909 030206 9$: 
4907 : OVERFLOW TEST WITH EXPONENT OF THE RESULT = 130, FIV = 0, FID = 1 
4908 030206 MMS : 
0302 104413 LPERR SET UP THE LOOP ON ERROR ADDRESS. 
030210 004737 030336 JSR 
4910 030214 060345 067654 1$: “WORD  60345,67654 ZAC 
4911 030220 060200 000000 2$: “WORD 60200.0 *FSRC 
4912 030224 000000 000000 3$: “WORD 0,0 :FRACTIONAL RES. 
4913 030230 000000 4$ WORD 0.0 S INTEGER RES 
4914 030234 5$ WORD 0.0 TERROR FRACTIONAL RES 
4915 030240 000345 067654 6$: .- WORD 345 67654 ERROR INTEGER RES. 
4916 030244 006011 7$: 6011 FPS BEFORE EXECUTION. 
4917 030246 006006 6006 “FPS AFTER EXECUTION. 
4918 030250 000010 10 FEC 
4919 030252 000240 8$: NOP 
4920 030254 000401 BR 9$ 
4921 030256 104174 ERROR +174 :ST 520 TO 162 INTO STORE ZERO TWICE. 
4922 030260 9$: 
4924 OVERFLOW .« WiTH EXPONENT OF THE RESULT = 128, RESULT NEGATIVE 
4925 [AND FIV = 1, FID = 1 
4926 030260 MyM - 
030260 104413 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
4927 030262 004737 030336 JSR PC, Q4MODF OV 
4928 030266 160252 125252 1$: “WORD  160252,125252 AC 
4929 030272 060000 000000 2$: “WORD  60000,0 iF 
4930 030276 000000 000000 3$: “WORD 0,0 [FRACTIONAL RES. 
4931 030302 100052 125252 4$: "WORD  100052,125252 INTEGER RES. 
4932 030306 000000 000000 5$: “WORD 0 TERROR FRACTIONAL RES. 
4933 030312 000052 125252 6$: “WORD  52,125252 : ERROR INTEGER RES. 
4934 030316 041000 7$: 41000 FPS BEFORE EXECUTION. 
935 030320 141006 141006 SFPS AFTER EXECUTION. 
4936 030322 000010 10 “FEC 
4937 030324 104172 8$: ERROR +172 
4938 030326 000401 BR 9$ 
4939 030330 104175 ERROR +175 :ST 517, BAD SIGN. 
4940 030332 000137 030732 9$: JMP a4MMMD ONE :GO TO THE NEXT TEST. 
4942 7 THIS SUBROUTINE, MODFOV, IS CALLED TO SETUP THE 


4943 OPERANDS, EXECUTE THE MODF INSTRUCTION AND CHECK THE RESULTS. 
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T20 SEE COMMENT ABOVE FOR TEST TITLE SEQ 0115 
4944 317 IS CALLED THUS: 
4945 : 
4946 ; ACARG: .WORD X,X :AC_OPERAND 
4947 3 FSRCARG:.WORD X,X :FSRC_OPERAND 
4948 ; FRES: «WORD = X,X FRACTIONAL RESULT 
4949 ; INTRES: .WORD X,X 7 INTEGER RESULT 
4950 ; ERFRES: .WORD X,X ERROR FRACTION RESULT 
4951 : ERINTRES:.WORD X,X ERROR INTEGER RESULT 
4952 ; FPSB:  .WORD xX 7FPS BEFORE EXECUTION 
4953 : FPSA:  .WORD X 7FPS AFTER EXECUTION 
4954 3 FEC: «WORD xX ZFEC 
4955 : ERR1: ERROR +X [FEC ERROR 
4956 ; BR CONT 
4957 3 ERR2: ERROR +X ; INTEGER ERROR 
rete : CONT: RETURN ADDRESS 
4960 ; THE OPERANDS ARE SET UP (USING ACO FOR THE AC ARGUMENT). THE MODF 
4961 ; INSTRUCTION IS EXECUTED. THEN THE RESULTS ARE RETRIEVED. 
4962 :THE FRACTION PART OF THE RESULT IS COMPARED WITH FRES. IF THIS IS CORRECT 
4963 ;THEN THE INTEGER PART IS COMPARED WITH INTRES. IF BOTH OF THESE ARE CORRECT 
4964 ; THEN THE FPS IS COMPARED WITH FPSA. AFTER EXECUTION IF NO ERRORS OCCURRED 
4965 THEN MODFOV WILL RETURN TO CONT. IF THE FPS WAS INCORRECT 
4966 ;1T IS REPORTED HERE. IF THE FRACTION IS INCORRECT IT IS COMPARED WITH 
4967 [THE ANTICIPATED BAD FRACTION, ERFRES. IF THIS DOESN'T MATCH 
4968 ;THE TRUE RESULT THEN THE ERROR IS REPORTED HERE. IF THE ANTICIPATED 
4969 [FAILURE MATCHES THE TRUE RESULT THEN MODFOV PASSES CONTROL TO THE 
4970 SERROR CALL AT ERR1. LIKEWISE IF THE INTEGER PART OF THE RESULT IS 
4971 NOT CORRECT THEN IT IS COMPARED WITH THE ANTICIPATED INTEGER 
4972 ;FAILURE. IF THIS DOEN'T MATCH THEN THE ERROR IS REPORTED HERE. 
49753 31F A MATCH IS MADE HOWEVER, MODFOV WILL RETURN CONTROL TO THE ERROR 
sane CALL AT ERR2. 
4976 030336 012601 MODFOV: MOV (SP)+,R1 :GET A POINTER TO THE ARGUMENTS 
4977 030340 012700 000200 MOV #200,RO0 ;SET FD MODE. 
4978 030344 170100 LDFPS RO 
030346 010100 MOV R1,RO SET UP ACO 
4980 030350 172410 LDD (RO) ,ACO 
4981 030352 012700 025666 MOV #MODP1 ,RO PUT A BACKROUND PATTERN INTO AC1. 
4982 030356 172510 LDD (RO) ,AC1 
4983 030360 016100 000030 MOV 30(R1) RO SET UP THE FPS. 
4984 030364 170100 LDFPS RO 
4985 030366 012737 030402 001236 MOV #1$,a#$TMP2 
4986 030374 010100 MOV R1,1,0 ;COMPUTE THE ADDRESS OF THE FSRC. 
yea of 030376 062700 000004 ADD #4,RO0 
res 4 030402 171410 1$: MODF (RO) ,ACO EXECUTE THE TEST INSTRUCTION. 
4991 030404 170204 STFPS R4 +L bes FPS. 
4992 030406 170305 STST R5 iGET FEC. 
4993 030410 012700 000200 MOV #200,R0 :SET FD MODE. 
4994 030414 170100 LDFPS R 
4995 030416 012700 030712 MOV AMODF DO RO GET THE FRACTIONAL RESULT. 
4996 030422 174010 STD ACO, (RO) 
4997 030424 012700 030722 MOV #MODFD1 ,RO GET THE INTEGER RESULT. 
4998 030430 174110 STD AC1, (ROS 


4999 
5000 030432 010102 MOV R1,R2 ;SAVE THE CATA IN CASE OF ERROR, 








CKFPBAO FP11F FLTG PNT PRT B 
T20 SEE COMMENT ABOVE FOR TEST TITLE 


5018 42 
5019 030550 
5020 

5021 030552 


5024 
5025 030572 
5026 
5027 030574 
5028 030600 
5029 
5030 030602 
opts 030606 
5033 030610 
5034 


5054 

5055 030652 
5056 030656 
5057 030664 


010237 
06. 
010237 
06. 


016137 
012702 


026105 
001030 


000761 


104165 
000774 


026112 
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MACRO M1111 
001240 MOV R2, ah$TMP3 
000004 ADD #4,R 
001242 MOV R2. a#STMP4 
ADD #4,R2 
001244 MOV R2. aASTMPS 
ADD #4 ,R2 
001246 MOV R2. aSTMP6 
030712 001250 MOV #MODF DO, a#$TMP7 
030722 001252 MOV #MODF D1. a#$TMP10 
001254 MOV R4, a#STMP11 
32 001256 MOV 32(R1) ,a#STMP12 
001260 MOV RS, a#STMP13 
34 001262 MOV 34(R1),a#STMP14 
030712 MOV #MODFDO,R2 sCHECK THE FRACTIONAL RESULT. 
000010 CMP 10(R1), (Ro) 
BNE 10 :BRANCH IF INCORRECT. 
000012 000002 CMP 12(R1) ,2(R2) 
BNE 10$ 
030722 MOV #MODFD1,R2 :CHECK THE INTEGER RESULT. 
900014 CMP 14(R1), (Re) 
BNE 15$ :BRANCH °F INCORRECT. 
000016 000002 CMP 16(R1),2(R2) 
BNE 15$ 
000032 CMP 32(R1) .R4 =CHECK THE FPS. 
BNE 20$ “BRANCH IF INCORRECT. 
000034 CMP 34(R1),R5 SCHECK THE FEC. 
BNE 25$ “BRANCH !F INCORRECT. 
000044 9$: JMP 44(R1) :RETURN. 
: FRACTIONAL ERROR. 
i0$: :THE ERROR WAS NOT ANTICIPATED SO 
12$: ERROR +165 “REPORT. 1HE INCORRECT FRACTION HERE. 
BR 9$ 
: INTEGER ERROR. 
000024 15$: | CMP 24(R1), (R2) :WAS THIS ERROR ANTICIPATED? 
BNE 16$ ‘BRANCH IF NOT. 
000026 000002 CMe 26(R1), .2(R2) 
MOV R1,R2 : THE ERROR WAS ANTICIAPTED SO RETURN 
000042 ADD #42,R2 ito THE ERROR REPORT IN THE CALLING 
JMP (R2) . 
16$: : THE ERROR WAS NOT ANTICIPATED SO REPORT 
17$: ERROR +166 ‘THE INTEGER FAILURE HERE. 
BR 9$ 
: “FPS INCORRECT. 
051254 0$: MOV R4, a#STMP11 :REPORT INCORRECT FPS. 
(40032 001256 V 32(R1) ,a#$TMP12 
21$: ERROR +167 


SEQ 0116 
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0 
030732 
030732 


030734 
5085 


5086 

5087 030736 
030736 

5088 030740 

5089 030744 


5090 030750 
5091 030754 


030762 
5092 030764 
5093 030774 

031002 
5094 031004 
5095 031010 
5096 031014 

031022 
5097 031024 
5098 031026 
5099 031030 
5100 031032 
5101 031034 


000750 


010537 


001260 
000034 


000036 
000000 


000000 


031352 


177777 
000000 


125252 
125252 
000000 


MACRO M1111 
SEE COMMENT ABOVE FOR TEST TITLE 


001262 


000000 


000000 


000000 
177777 
000000 


177777 


,REPORT FEC ERROR. 
MOV 


MODF DO: 


MODF D1: 


MMMDONE : 


BR 


. WORD 


. WORD 


RSETUP 


N - 
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9$ 
R5,a4 
#36,R2 
(R2) 
0.0.0.0 


0.0.0.0 


MP13 
34 ‘RD. "BeSTMP14 
1,R2 


SEQ 0117 


;GO_ INITIALIZE THE FPS AND STACK; AND 
;SEE IF THE USER HAS EXPRESSED 

THE DESIRE TO CHANGE THE SOF TWARE 
:VIRTUAL CONSOLE SWITCH a (HAS 
; THE USER TYPED CONTROL G?) 


TEST TITLE:UNDER/OVERFLOW, USING MODD WITH TRAPS DISABLED 


DIRK RRR EK EKER EERE REE EERE EERE 


: TEST 21 


SEE COMMENT ABOVE FOR TEST TITLE 


THIS IS A_ TEST OF THE MODD INSTRUCTION'S OVER FLOW AND UNDER FLOW 
;*CONDITIONS. A SUBROUTINE IS USED TO SET UP THE OPERANDS, EXECUTE THE 
; #MODD INSTUCTION AND CHECK THE RESULTS. 


silent aeatapaetnstieiatia eiaeaieaaatinidetet anand eieaeibieuiniall 


18121: 


1$: 
23: 
3$: 
4$: 
5$: 
6$: 
7$: 


8$: 


SCOPE 
,UNDERFLOW TEST WITH EXPONENT OF THE RESULT = -129, FIU = 1, FID = 1 
" _LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
JSR PC, a#MODDOV 
“WORD 20252,125252 —-: AC 
"WORD 125252,125252 
“WORD 20100,0.0.0 F SRC 
,WORD 177,-1.-1.-1  ; FRACTIONAL RES. 
.WORD 0,0,0,0 : INTEGER RES. 
.WORD 20252,125252 _; ERROR FRACTIONAL RES. 
“ WORD 125252. 125252 
“WORD 0,0,- :ERROR INTEGER RES. 
200 :FPS BEFORE EXECUTION. 
142204 :EPS AFTER EXECUTION. 
ERROR 3201 “FEC INCORRECT ON UNDERFLOW. 
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104202 95 ERROR +202 3ST 155 (BUT FD) 


ZUNDERFLOW TEST WITH EXPONENT OF THE RESULT = -193, FlU= 0, FID = 1 
;SET UP THE LOOP ON ERROR ADDRESS. 
PC, a#MODDOV 
1 . SAC 
123456.0 
10200,6,0,0 F SRC 
0.0.0.0 FRACTIONAL RES. 
0.0.0.0 INTEGER RES. 
0.0.0.0 ERROR FRACTIONAL RES. 
ERROR INTEGER RES. 


FPS BEFORE EXECUTION. 
sFPS AFTER EXECUTION. 


0,0 
123456,0 


BR 9$ 
ERROR +203 7ST 047 (BUT FD). 


9$: 
OVERFLOW TEST WITH EXPONENT CF THE RESULT = 128, FIV = 1, FID = 1 
:SET UP THE LOOP ON ERROR ADDRESS. 
031352 S PC, a#MODDOV 
125252 1$: , 60252,125252 AC 
125252 ; 125252,125252 
000000 2s: 60100,0,0.0 sFSRC 
000000 000000 38: : 0.0.0.0 :FRACTIONAL RES. 
177777 177777 4$: } 177,-1,-1,°1 : INTEGER RES. 
5132 031210 000000 000000 000000 S$: , 0.0.0.0 ZERROR FRACTIONAL RES. 


0 
5133 031220 177777 6$: ° 177,71 ERROR INTEGER RES. 
5134 031224 125252 WORD = 125252,125252 

31230 :FPS BEFORE EXECUTION. 


7$: 41200 
141206 FPS AFTER EXECUTION. 
8$: ERROR $204 “FEC BAD ON OVERFLOW. 
ERROR +205 :ST 520 TO 162 INTO 163 (BUT FD). 


Ww 
= 
Ww 
Ww 


9$: 

OVERFLOW TEST WITH EXPONENT OF THE RESULT = 130. FIV = 0. FID = 1 
:SET UP THE LOOP ON ERROR ADDRESS. 
ZAC 


VISSEVE 


QA AYIA 
-_—— _— Ss SV YY 
SHRHKHKROW 


Py ar > 
NOW BW 


031352 
000000 1$: “WORD  60200,0 
031256 2 000000 “WORD  125252,0 





T21 
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CKFPBAO FP11F FLTG PNT PRT B MACRO M1111 
SEE COMMENT ABOVE FOR TEST TITLE 
5148 031262 060200 000006 000000 2%: .WORD  60200,0,0,0 F SRC 
5149 051 72 000000 000000 000000 3: .WORD 0,0,0,0 :FRACTIONAL RES. 
5150 031302 000000 000000 000000 4s: .WORE 0,0,0,0 : INTEGER RES. 
5151 031312 000000 000000 000000 S$: .WORD 0,0,0,0 ZERROR FRACTIONAL RES. 
031320 000000 
5152 031322 000000 6$: ~WORD 400,0 ;ERROR INTEGER RES. 
5153 031326 125252 000000 “WORD 125252,0 
5154 031332 006211 7$: 6211 sFPS BEFORE EXECUTION. 
5155 031334 006206 6206 “FPS AFTER EXECUTION. 
5156 031336 000010 10 FEC 
5157 031340 000240 8$: NOP 
5158 031342 000401 BR 9$ 
5159 031344 104206 ERROR +206 :ST 520 TO . “ee STORE ZERO TWICE. 
2160 031346 000137 031760 9$: JMP @ANNND ONE ‘GO TO NEXT T 
5162 ; THIS SUBROUTINE, MODDOV, IS CALLED TO SETUP THE 
5163 s OPERANDS, EXECUTE THE MODD INSTRUCTION AND CHECK THE RESULTS. 
Zio ;1T IS CALLED THUS: 
5166 : ACARG: X,X,X&X ;AC OPERAND 
5167 Z F SRCARG: .WORD XXX, zFSRC OPERAND 
5168 ; FRES: ” D X,X,X,X ; FRACTIONAL + é ee 
5169 : INTRES: .WORD KX LM ; INTEGER RESUL 
5170 : ERFRES: .WORD XXX, ‘ERR OR FRACTION RESULT 
5171 ; ERINTRES:.WORD X,X,X,X sERROR INTEGER RESULT 
5172 FPSB: ~ WORD x sFPS BEFORE EXECUTION 
5173 FPSA: ~ WORD x FPS AFTER EXECUTION 
5174 ERR1: ERROR +X ;FRACTION ERROR 
5175 CONT 
5176 : ERR2: ERROR +X : INTEGER ERROR 
ger : CONT: ;RETURN ADDRESS 
5179 * THE OPERANDS ARE SET UP (USING ACO FOR THE AC ARGUMENT). THE MODD 
5180 ; INSTRUCTION IS EXECUTED. THEN THE RESULTS ARE RETRIEVED. 
5181 *TH FRACTION PART OF THE RESULT IS C ED WITH FRES. IF THIS IS CORRECT 
5182 : THEN THE INTEGER PART IS COMPARED WITH INTRES. IF BOTH OF THESE ARE CORRECT 
5183 [THEN THE FPS IS COMPARED WITH FPSA. AFTER EXECUTION IF NO ERRORS OCCURRED 
5184 ; THEN MODDOV WILL RETURN TO CONT. IF THE FPS WAS INCORRECT 
5185 ZIT IS REPORTED HERE. IF THE FRACTION IS INCORRECT IT IS COMPARED WITH 
5186 :THE ANTICIPATED BAD FRACTION, ERFRES. IF THIS DOESN'T MATCH 
5187 : TRUE RESULT THEN THE ERROR IS REPORTED HERE. IF THE ANTICIPATED 
5188 SFAILURE MATCHES THE TRUE RESULT THEN MODDOV PASSES CONTROL TO THE 
5189 sERROR CALL AT ERR1. LIKEWISE IF THE INTEGER PART OF THE RESULT IS 
5190 ‘NOT CORRECT THEN IT IS COMPARED WITH THE ANTICIPATED INTEGER 
5191 ;FAILURE. IF THIS DOEN'T MATCH THEN THE ERROR IS R ED HERE. 
5192 ;I1F A MATCH IS MADE HOWEVER, MODDOV WILL RETURN CONTROL TO THE ERROR 
fai :CALL AT ERR2. 
5195 031352 012601 MODDOV: MOV (SP)+,R1 :GET A POINTER TO THE ARGUMENTS 
5196 031354 012700 000200 MOV #200,R0 *SET FD MODE. 
5197 031360 170100 LDFPS RO 
5198 031362 010100 MOV R1,RO :SET UP ACO 
5199 031364 172410 LDD (RO) ,ACO 
5200 031366 012700 025666 MOV AMODP1,RO :PUT A BACKROUND PATTERN INTO AC1. 


SEQ 0119 
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5201 031372 


5248 031612 


174110 
010102 


016137 
012702 


000060 
031416 
000010 


000200 
031740 
031750 


001240 
000010 
001242 
000010 
001244 
000010 
001246 
031740 
031750 
001254 
000062 
001260 
000064 


031740 
000020 
000004 


031750 


000030 
000004 


MACRO m1111 


001236 


001250 
001252 


001256 
001262 


2s: 


3$: 
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(RO) ,AC1 
60(R1) ,RO 


RO 

#1$, aa#STMP2 
R1.RO 
#10,RO 

(RO) ,ACO 


6 
#MODDDO, a#STMP7 
A#MODDD1 , a#STMP10 


RG /aASTMP11 

62(R1) ,@#STMP12 

R5,a4$STMP13 

64(R1) ,@A#STMP14 

#MODDDO,R2 
R1,R3 

#20. R3 

#4 “RO 

(Re) +, (R3)+ 

bg 2$ 

#MODDD1,R2 

R1,R3 

#30, gk3 

tnd) s. (RS) 

15$ 

RO,3$ 


;SET UP THE FPS. 
; COMPUTE THE ADDRESS OF THE FSRC. 
EXECUTE THE TEST INSTRUCTION. 
:GET THE FPS. 


sGET THE FPS. 
;SET FD MODE. 


;GET THE FRACTIONAL RESULT. 
;GET THE INTEGER RESULT. 


;SAVE THE DATA IN CASE OF ERROR. 


;CHECK THE FRACTIONAL RESULT. 


;BRANCH if INCORRECT. 


; CHECK THE INTEGER RESULT. 


;BRANCH IF INCORRECT. 


SEQ 0120 


E_10 
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SEE COMMENT ABOVE FOR TEST TITLE SEQ 0121 
3 
5252 031614 026104 000062 CMP 62(R1) RS ;CHECK THE FPS 
a2? 031620 001027 BNE 208 ‘BRANCH IF INCORRECT. 
5255 031622 026105 000064 CMP 64(R1),R5 ;CHECK THE FEC. 
o528 031626 001033 BNE 25$ 
a$28 031630 000161 000074 9$: JMP 74(R1) RETURN. 
5260 ;FRACTIONAL ERROR. 
5261 031634 10$: ; THE ERROR WAS NOT ANTICIPATED SO 
5262 031634 104176 12$: ERROR +176 ‘REPORT THE INCORRECT FRACTION HERE. 
asee 631636 000774 BR St 
5265 ; INTEGER ERROR. 
5266 031640 012702 031750 15$: MOV A#MODDD1,R2 ;WAS THE INTEGER ERROR ANTICIPATED? 
5267 031644 010103 MOV R1,R3 

6 062703 000050 ADD #50,R3 

5269 031652 012705 000004 MOV #4 ,R5 
5270 031656 022223 60$: CMP (R2)+,(R3)+ 
5271 031660 001005 BNE 17$ ;BRANCH IF NOT ANTICIPATED. 
5272 031602 077503 SOB R5,60$ 
5273 031664 010102 MOV R1,R2 7 THE ERROR WAS ANTICIAPTED SO RETURN 
5274 031666 062702 000072 ADD #72,R2 3TO THE ERROR REPORT IN THE CALLING 
5275 ;ROUTINE. 
as78 031672 000112 JMP (R2) 
5278 031674 16$: : THE ERROR WAS NOT ANTICIPATED SO REPORT 
5279 031674 104177 17$: ERROR +177 ; THE INTEGER FAILURE HERE. 
esey 031676 000754 BR 9$ 
5282 sFPS INCORRECT. 
5283 031700 010437 001254 20$: MOV R4,a4$TMP11 ;REPORT INCORRECT FPS. 
5284 031704 016137 000062 001256 MOV 62(R1) ,@#$TMP12 
5285 031712 104200 21$: ae — 


5286 031714 000745 
5287 


5288 REPORT FEC ERROR. 
5289 031716 


010537 0C1260 25$: MOV R5,a@#STMP13 

5290 031722 016137 000064 001262 MOV 64(R1) ,a#$TMP14 
5291 031730 010102 MOV R1,R2 
5292 031732 062702 000066 ADD #66 ,R2 
44 031736 000112 JMP (R2) 
5295 031740 000000 000000 000000 MODDDO: .wORD 0,0,0,0 
5296 031746 000000 
5297 031750 000000 000000 000000 MODDD1: .WORD 0,0,9,0 

031756 000000 
5298 
5299 031760 NNNDONE : 

031760 104412 RSE TUP ;GO_ INITIALIZE THE FPS AND STACK; AND 


SEE IF THE USER HAS EXPRESSED 

>THE DESIRE TO CHANGE THE SOFTWARE 

: VIRTUAL CONSOLE SWITCH oe (HAS 
; THE USER TYPED CONTROL G?) 





CKFPBAO FP11F FLTG PNT PRT B 
T21 SEE COMMENT ABOVE FOR TEST TITLE 


031762 


344 
345 031764 
346 031772 
347 031774 
348 
5349 032002 


5350 032004 
5351 


DAWA 


5355 032032 


000004 
132767 
032777 


000200 
000200 


033142 
032034 
036712 
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FF RAAAARAAARAARARARAERRAARAAEAAEAARARARAARARAAARARARERRAAARRARARAHORH 


TEST 22 


:sTHIS IS A_TEST OF THE 
S PURPOSE 


AS IT 


INTERRUPT CORRECT FLOWS TEST 


"CORRECT* FLOWS. THIS PART OF THE MICRO CODE 
INSURING THAT INTERRUPT REQUESTS MADE DURING 


: CERTAIN LENGTHY FPP INSTRUCTIONS GET HONORED. THIS IS DONE 
*IN A WAY SUCH THAT IF AN 
:*OF THESE INSTRUCTIONS THE STATE OF THAT INSTRUCTION'S 


> *EXECUTION WILL BE 
:*BEEN FETCHED AND 


INTERRUPT REQUEST OCCURS DURING ONE 


THE SAME AS IF THAT INSTRUCTION HAD NEVER 
ITS EXECUTION NEVER STARTED. THUS THE MICRO CODE 


;*WILL RESTORE ALL REGISTERS, BACK UP THE PC AND LEAVE THE 
;*FPS AND ACO T 

:*THE INSTRUCTIONS FOR WHICH THIS IS NECESSARY ARE: 

ADD (OR SUB) 


*@ 
. 
-* 
* 
-* 
. 


DIV 
MUL 


HROUGH ACS UNMODIFIED. 


147345 
147136 


000004 
01112 
000004 


;* MOD 

;*(BOTH DOUBLE AND FLOATING) 

:*ALL ADDRESSING MODES WILL BE TRIED WITH THE ADDD INSTRUCTION. THEN 
;*EACH OF THE OTHER INSTRUCTIONS WILL BE TRIED USING MODE 1. 

:*NOTE THAT THIS TEST ey A SPECIAL IN TERRUPT MODULE , 

;*WHICH WILL PROBABLY ONLY BE PRESENT IN DEC'S MANUFACTURING ENVIRONMENT, 
3*TO RUN. THIS SPECIAL EQUIPMENT IS DESIGNED TO RAISE AN 

;*INTERRUPT REQUEST IN THE PROCESSOR IF A BIT IS SET IN ITS STATUS 
 *REGISTER AND ONLY WHEN AN FPP INSTRUCTION IS ENCOUNTERED 

;* THEREFORE THIS TEST WILL BE RUN CONDITIONALLY (DEPENDENT UPON WHETHER 
:*OR NOT THE STATUS REGISTER OF THE TEST EQUIPMENT TIMES OUT WHEN REFERENCED). 
:*THIS TEST CAN ALSO BE DESELECTED BY — SWITCH 7 OF THE 

s*SWITCH REGISTER (PHYSICAL OR VIRTUAL 

:*THE TEST ASSUMES THAT THE TEST COUIPMENT S STATUS ast e IS AT 
s*LOCATION 777774 (NOTE THAT ALL a wire TO THIS LOCATION ARE 

;*MADE INDIRECT THROUGH THIS PROGRAMS LOCA TION CORINT, SO THAT 

;*IF THE USER HAS MODIFIED THE TEST EQUIPMENT'S STATUS REGISTER TO 
;*RESPOND TO A DIFFERENT ADDRESS LOCATION CORINT MUST BE 

:*MADE TO CONTAIN THAT STATUS REGISTER'S NEW ADDRESS). 

3*THIS PROGRAM ASSUMES THAT THE TRAP VECTOR FOR THE TEST EQUIPMENT IS 110. 
;*AGAIN NOTE THAT ALL REFERENCES TO THIS TRAP VECTOR ARE INDIRECT, THROUGH 
+ *THIS PROGRAM'S LOCATION CORTRP (IF THE TEST EQUIPMENT IS 

:*MADE TO TRAP TO A DIFFERENT VECTOR LOCATION CORTRP MUST CONTAIN THE 

; *ADDRESS OF THIS VECTOR). 


—mAAAAARASAALASLALALASASLARARARARSASARR SRR RSRRRR RRA RARRRER RRR SRDS SD OI 


1$122: SCOPE 
#200, $ENVM 
#200, aSWR 


BNE - 
@4C ORDONE 


#COR2, 11 al CT 


7 SEE IF APT IS SELECTING ie 
ANCH TO AUTOS! 

[SEE IF THE USER HAS SELECTED THIS 

TEST USING THE SWITCH REGISTER. 

IF SO, PERFORM T 

;ELSE DO NOT RUN TEST 


3! if a TEST > pabtinel S STATUS 
MOV # ; 


R TIMES 
*CPSPUR- SHERRY 
BR !DIDN' T TIME OUT SO START TEST. 


SEQ 0122 





CKFPBAO FPIIF FLTG PNT PRT B 
INTERRUPT CORRECT FLOWS TEST 


T22 


5379 032122 
380 
5381 032122 


ra 032162 


5394 

5395 032162 

032162 
32164 


O6 032222 


022626 
012737 
000137 


033124 


032642 
000555 


033124 


032642 
111333 


033124 


G 10 
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000004 


000200 


077007 


052525 


: TEST ADDD MODE 
COR3: 


INC 
BNE 
TYPE 
WORD 
COR33: 
LPERR 
JSR 
1$: . WORD 
2s: . WOR 
3$: 200 
4S: ADDD 
NOP 
CLR 
ERROR 
BR 
5$: ERROR 
ZTEST ADD MODE 1 
RS: 
LPERR 
JSR 
1$: . WORD 
2$: . WORD 
3$: 217 
4$: ADDD 
NOP 
CLR 
ERROR 
ERROR 
11$: 


11$: 


CMP 
MOV 
JMP 


(SP)+, (SP)+ z1F THE REFERENCE TIMES OuT DO 
#CPSPUR , @MERRVECT 
aC ORDONE ;NOT RUN TEST. 
0 
a-1 
COR33 
CORME S 
SET UP THE LOOP ON ERROR ADDRESS. 
PC ,a#CORSUB 
40200,100,200, 300 sACO 
123456 7RO 
7FPS 
ACO.ACO TEST INSTRUCTION. 
a4CORFLG sRESET INTERRUPT FLAG 
Fe ;NO INTERRUPT! TEST EQUIPMENT FAILED. 
+253 ; INCORRECT STATE AT INTERRUPT. 


;SET UP THE LOOP ON ERROR ADDRESS. 


PC, ,a#CORSUB 
40201,555,77007,111111 ;ACO 


1$ ;RO 
ZFPS 
(RO) ,ACO s TEST INSTRUCTION 
@ACORFLG sRESET INTERRUPT FLAG 
~ ty ZREPORT FAILURE. NO INTERRUPT. 
+254 
2 
:SET UP THE LOOP ON ERROR ADDRESS. 
PC ,a@4CORSUB 
40202,111333,52525,70707 sACO 
1$ RO 
iFPS 
(RO) +,ACO ; TEST INSTRUCTION 
@A4CORFLG ZRESET THE INTERRUPT FLAG 
"fa" ZREPORT FAILURE. NO INTERRUPT. 
+255 : CORRECT FLOWS FAILED. 


nase sc 


SEQ 0123 | 
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T22 INTERRUPT CORRECT FLOWS TEST SEQ 0124 


;TEST ADDD MODE 3 
COR6: 


5409 032222 
O32222 104413 LPERR ;SET UP THE LOOP ON ERROR ADDRESS. 
5410 032224 004737 032642 JSR PC ,a#CORSUB 
5411 032230 040203 071735 072746 1$: -WORD 40203, 71735,72746,1 ;ACO 
032236 000001 
5412 032240 032264 2$: «WORD 10$ ;RO 
5413 032242 000206 3$: 206 zFPS 
5414 032244 172030 4$: ADDD a(RO)+,ACO TEST INSTRUCTION 
5415 032246 000240 NOP 
5416 032250 005037 033124 CLR @4CORFLG RESET THE INTERRUPT FLAG 
5417 032254 104252 ERROR +252 ;REPORT FAILURE , NO INTERRUPT. 
5418 032256 0 BR 11$ 
5419 032260 104256 5$: ERROR +256 CORRECT FLOWS FAILED. 
5420 032262 000401 BR 11$ 
5421 032264 032230 10$: «WORD 1$ ;USED FOR THE ADDRESSING OF THE OPERAND 
542 ; IN THIS MODE. 
5423 032266 118: 
5424 TEST ADDD MODE 4 
5425 032266 COR?: 
032266 104413 LPERR ;SET UP THE LOOP ON ERROR ADDRESS. 
5426 032270 004737 032642 JSR PC ,a#CORSUB 
5427 032274 040204 123456 070123 1$: «WORD 40204,123456,70123,45671 ;ACO 
032302 045671 
5428 032304 032304 2$: «WORD 1$+10 . ;RO 
5429 032306 000212 3$: 212 sFPS 
5430 032310 172040 4$: ADDD -(RO) ,ACO TEST INSTRUCTION 
5431 032312 000240 NOP 
5432 032314 005037 033124 CLR @4CORFLG RESET THE INTERRUPT FLAG 
5433 032320 104252 ERROR +252 REPORT FAILURE. NO INTERRUPT. 
5434 032322 000401 BR 11$ 
5435 0323524 104257 ERROR +257 CORRECT FLOWS FAILED 
5436 032326 11$: 
5437 
5438 ; TEST ADDD MODE 5 
5439 032326 COR8: 
032326 104413 LPERR SET UP THE LOOP ON ERROR ADDRESS. 
5440 032330 004737 032642 JSR C,a#CORSUB 
5441 032334 040205 076543 021076 1$: . WORD 40305. 76543,21976,54321 ;ACO 
032342 054321 
5442 032344 032372 2$: -WORD 10$+2 :RO 
5443 032346 000213 3$: 213 iFPS 
5444 032350 172050 4$: ADDD a-(RO) ,ACO TEST INSTRUCTION 
5445 032352 000240 NOP 
5446 032354 005037 033124 CLR a4 CORFLG RESET THE INTERRUPT FLAG 
5447 032360 104252 ERROR +252 ;REPORT ERROR. NO INTERRUPT. 
5448 032362 03 BR 11$ 
5449 032364 104260 5$: ERROR +260 CORRECT FLOWS FAILED. 
5450 032366 000401 BR 11$ 
5451 032370 032334 10$: -WORD 1$ 
5452 032372 118: 
5453 
5454 TEST ADDD MODE 6 
5455 032372 : 
032372 104413 LPERR SET UP THE LOOP ON ERROR ADDRESS. 
5456 032374 004737 032642 JSR PC ,a#CORSUB : 
5457 032400 040206 034353 063730 1$: -WORD 40206, 34353,63730, 31323 ACO 


CKFPBAO FP11F FLTG PNT PRT B 
INTERRUPT CORRECT FLOWS TEST 


T22 


032406 
5458 032410 
5459 032412 


5464 30 

5465 032432 

5466 

5467 

5468 032432 
032432 

5469 032434 

5470 032440 
032446 

5471 032450 


5475 464 
5476 032466 
5477 032470 
5478 032472 
5479 032474 
5480 032476 
5481 


82 
. 5483 032476 


5 032570 
5506 032572 
5507 032574 


031323 
032377 
000 


032642 
070107 


000001 
033124 


032642 
033445 


033124 


032642 
165411 


033124 


MACRO M1111 


e$: . WORD 
3$: 214 
4$: ADDD 
CLR 
ERROR 
5$: ERROR 
118: 
; TEST ACDD MODE 
COR10: 
LPERR 
JSR 
062426 _1$: . WORD 
2$: . WORD 
3$: 204 
4$: ADDD 
CLR 
ERROR 
§ ERROR 
BR 
10$: . WORD 
11$: 
; TEST DIVD MODE 
COR11: 
LPERR 
JSR 
056677 1$: . WORD 
2$: . WORD 
3$: 205 
4$: DIVD 
NOP 
CLR 
ERROR 
5$: ERROR 
118% 


046252 =1$: 


5$: 


1_10 
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1$-1 


1(RO) ,ACO 
et fal 


zRO 

sFPS 

sTEST INSTRUCTION 
ZREPORT FAILURE NO TRAP. 


SET UP THE LOOP ON ERROR ADDRESS. 


PC ,a4#CORSUB 
40210,70107,62426,55555 ;ACO 


10$-1 RO 

FPS 
a1(RO),ACO TEST INSTRUCTION 
@ACORFLG 
tae sREPORT FAILURE NO TRAP 
> s CORRECT FLOWS FAILED. 
1$ 
1 

SET UP THE LOOP ON ERROR ADDRESS. 
PC ,a#CORSUB 
40211, 33445,56677,001122 ;ACO 
1$ zRO 

sFPS 
(RO) ,ACO s TEST INSTRUCTION 
@ACORFLG 
sae ZREPORT FAILURE, NO TRAP, 
+263 Z CORRECT FLOWS FAILED. 
1 

;SET UP THE LOOP ON ERROR ADDRESS. 
PC ,@#CORSUB 
40212,165411,46252,63650 ACO 
1$ 7RO 
210 FPS 
(RO) ,ACO ;TEST INSTRUCTION 
@ACORF LG 
Ht ZREPORT FAILURE, NO TRAP, 
+264 : CORRECT FLOWS FAILED. 


SEQ 0125 





CKFPBAO FP11F FLTG PNT PRT B 
T22 INTERRUPT CORRECT FLOWS TEST 


5508 032576 
a 
5511 032576 
032576 104 
600 032642 
045654 054542 


000 
4: 005037 033124 


033142 


5552 
a227 032642 005037 033124 
5555 032646 012601 


5556 032650 010102 
5557 032652 012700 000200 
5558 032656 170100 
5559 032660 172412 
5 2662 016100 000012 
5561 032666 170100 
5562 032670 016100 000010 


MACRO M1111 
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118: 
: TEST MODD MODE 1 
COR13: 
LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
JSR PC, a#CORSUB 
1$: WORD 40213,45654,54542, 171623 :ACO 
2s: . WORD 1$ RO 
3$: .~ WORD 412 sFPS 
4$ MODD (RO) ACO ‘TEST INSTRUCTION. 
N 
CLR a4 CORFLG 
ERROR +252 :REPORT FAILURE NO TRAP. 
5$: ERROR +265 : CORRECT FLOWS FAILED. 
11$: J a4 CORDONE ‘FINISHED TEST! 


> THIS SUBROUTINE, CORSUB, IS CALLED TO SET UP THE OPERANDS 
AND CHECK THE RESULTS IN THIS TEST. IT IS CALLED THUS: 


: JSR PC ,a@#CORSUB 
1$ «WORD = X,X,X,X sACO OPERAND 
es -WORD X . 
3$ «WORD X 
4$ INST vest INSTRUCTION TO BE 
SEXECUTED. 
ADR 7AN ADDRESS OFFSET FOR 
CERTAIN MODES OR NOP. 
ERROR Fg [NO TRAP ERROR. 
: 5$: ERROR +N ; CORRECT FLOWS FAILURE. 
: BR 11$ ZOPTIONAL FOR CERTAIN MODES. 
: Hf -WORD ADDRESS [OPTIONAL FOR CERTAIN MODES. 


;CORSUB WILL PICK UP A POINTER TO THE ARGUMENTS, IN R1. ACO, RO AND 
; THE FPS WILL BE SET TO THE DESIGNATED VALUES. THEN THE TEST MODULE 
;WILL_ BE SET UP TO INTERRUPT AND THE INSTRUCTION AT 4$ EXECUTED. IF 
;NO_TRAP OCCURS THEN THE TEST MODULE IS FAULTY. WHEN THE TRAP OCCURS 
; THE PC ON THE STACK SHOULD BE 4$, AND ACO, R 

IF EVERYTHING IS CORREC 


sHAVE BEEN MODIFIED. 
RROR IS DETECTED THEN CORSUB WILL RETURN TO THE 


:5$ PLUS TWO. IF ANE 
ERROR REPORT AT 5$. 

NOTE THAT A FLAG, CORFLG, IS SET TO -1 WHEN AN INTERRUPT IS PENDING. 
:CORFLG IS ZERO OTHERWISE. 


CORSUB: CLR a*CORFLG :SET FLAG TO INDICATE NO INTERRUPT 
MOV (SP)+,R1 ;GET A POINTER TO THE ARGUMENTS. 
MOV R1,R2 “SET ACO. 
V #200,RO 
LDFPS RO 
LDD (R2) ACO 
MOV 12(R1) RO :SET UP THE FPS. 
LDFPS RO 


R 
MOV 10(R1) ,RO SET UP RO. 


SEQ 0126 


T22 
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+ * + aaa OF INSTRUCTION IN CASE 
;CLEAR THE PRIORITY TO . INTERRUPTS. 
:SET UP THE INTERRUPT + ae 


ING. 
ENABLE THE TEST EQUIPMENT'S 
; TRAP FUNCTION AND GO 


SEXECUTE THE INSTRUCTION. 


FIRST SEE IF AN yy WAS PENDING. 
SIF NOT GO REPORT AN ERR 
SMAKE SURE THE TEST EWIIPMENT 

31S NOT INTERRUPT ENABLED 


;GET THE FPS. 
;GET ACO 


;SEE_IF THE TRAP OCCURRED 
:AT THE CORRECT ADDRESS. 


RESET THE STACK. 
SEE IF RO IS CORRECT. 
NOT R 


BR IF ORRECT. 
SEE IF ACO WAS CORRECT 


;BRANCH IF INCORRECT. 

IF EVERYTHING IS CORRECT THEN RETURN. 
;CORRECT FLOWS FAILED SO GO REPORT ERROR. 
;AN_ INTERRUPT OCCURRED WHEN THE FLAG 


;CORFLG, DID NOT INDICATE THAT ONE WAS 
PENDING SO REPORT SPURIOUS TRAP. 


CKFPBAO FP11F FLTG PNT PRT B MACRO M1111 
INTERRUPT CORRECT FLOWS TEST 
5563 032674 010102 MOV R1,R2 
5564 032676 062702 000014 ADD #14,R2 
3365 032702 010237 001236 MOV R2, a#$TMP2 
5567 032706 005037 776 CLR aePSW 
5568 032712 012777 052740 000220 MOV #CORTV, @CORTRP 
2569 032720 012767 177777 000176 MOV #-1, CORFLG 
3571 032726 012777 177777 000202 MOV #-1,aCORINT 
3573 032734 000161 000014 JMP 14(R1) 
5575 ; TRAP TO HERE WHEN THE INTERRUPT OCCURS, 
5576 032740 005137 033124 CORTV: COM ar'CORF LG 
5577 032744 001060 BNE CORTV1 
3578 032746 012777 000000 000162 MOV #0 ACORINT 
5580 
5581 032754 170204 STFPS 
5582 032756 012702 000200 V #200,R2 
5583 032762 170102 LDFPS Re 
032764 012702 033126 MOV #CORTMP ,R2 
5585 032770 174012 STD ACO, (R2) 
5586 032772 012737 033126 001240 MOV #CORTMP, aASTMP3 
5587 033000 010037 001244 MOV RO, a#STMPS 
03 010437 001250 MOV R4. aASTMP7 
5589 033010 011637 001254 MOV (SP) ,a#$TMP11 
5590 033014 010102 MOV R1,R2 
5591 033016 010237 001242 MOV Ro arSTMPG 
5592 033022 062702 000010 ADD #10,R2 
5593 033026 012237 001246 MOV (R2)+, a#$STMPG 
033032 012237 001252 MOV (R2) +, a#$TMP10 
5595 033036 010237 001256 MOV R2, a#$TMP12 
5596 033042 021602 CMP (SP) ,R2 
5598 033044 001016 3NE CORTVO 
5599 033046 022626 CMP (SP) +, (SP)+ 
0330 20061 000010 CMP RO,10(R1) 
5601 033054 001012 BNE CORTVO 
5602 033056 010102 MOV R1,R2 
03 012703 033126 MOV #CORTMP, R3 
03 012705 000004 MOV 
5605 033070 022223 1$: CMP tRdse (R3)+ 
033072 001003 BNE CORTVO 
5607 033074 077503 SOB RS 1$ 
5608 033076 000161 000032 JMP 32(R1) 
5610 033102 000161 000030 CORTVO: JMP 30(R1) 
5612 033106 011637 001236 CORTV1: MOV (SP) ,a#$TMP2 
5614 
5615 033112 0C5037 033124 CLR @ACORFLG 
5616 033116 022626 CMP (SP)+,(SP)+ 
5617 033120 104266 ERROR +266 
3618 033122 000407 CORDONE 


SEQ 0127 


T22 
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CKFPBAO FP11F FLTG PNT PRT B MACRO M1111 
INTERRUPT CORRECT FLOWS TEST 
5620 033124 000000 CORFLG: .WORD O 
5621 033126 000000 000000 000000 CORTMP: .WORD 0,0,0,0 
5622 033134 000000 
5623 033136 177774 CORINT: .WORD 177774 ;THIS IS THE ADDRESS, 177774, OF THE 
5624 ; TEST EQUIPMENT'S STATUS REGISTER. 
5625 ;THE CONTENTS OF CORINT CAN BE MODIFIED 
5626 ;1F THIS STATUS REGISTER'S ADDRESS IS 
5627 CHANGED. 
5628 033140 000110 CORTRP: .WORD 110 + THIS IS THE ADDRESS OF THE TEST EQUIPMEN NTS 
5629 > TRAP VECTOR. LIKE THE STATUS REGISTER'S ADDRESS 
5630 : DESCRIBED IMMEDIATELY ABOVE 
5631 ;THIS VECTOR CAN BE CHANGED, BUT THE 
5632 ‘CONTENTS OF CORTRP MUST INDICATE THE 
5633 : CHANGE. 
5634 
5635 033142 CORDONE : 
033142 104412 RSETUP 3:GO INITIALIZE THE FPS AND STACK; AND 
:SEE IF THE USER HAS EXPRESSED 
: THE DESIRE TO CHANGE THE SOFTWARE 
sVIRTUAL CONSOLE SWITCH + he (HAS 
: THE USER TYPED CONTROL G?) 
5636 
5637 
5638 
5639 033144 TST23: 
5640 
5641 
5642 
5643 -SBTTL END OF PASS ROUTINE 
CLERK EEEEEEKERKEEEKEEREREEREEEERERRERREREREREREKE KH 
:* INCREMENT THE PASS NUMBER ($PASS) 
:* INDICATE END-OF-PROGRAM AFTER 1 PASSES THRU THE PROGRAM 
7*IF SW12=1 INHIBIT TRACE TRAP 
:*IF THERES A MONITOR GO TO IT 
:*IF THERE ISN'T JUMP TO LOOP 
033144 $EOP: 
033144 SCOPE 
033146 005067 145730 CLR STSTNM :ZERO THE TEST NUMBER 
033152 5067 146124 CLR STIMES 23 ZERO THE NUMBER OF ITERATIONS 
033156 005267 146142 INC SPASS : INCREMENT THE PASS NUMBER 
33162 042767 1 0 146134 BIC #100000, $PASS ON'T ALLOW A NEG. NUMBER 
033170 005327 DEC (PC) + SLOOP? 
033172 1 $EOPCT: .WORD 1 
033174 3074 BGT $SDOAGN 37 YES 
033176 012737 MOV (PC)+,a(PC)+ 7 RESTORE COUNTER 
033200 1 SENDCT D 1 
033202 033172 SEOPCT 
033204 104401 033212 TYPE ,65$ 7z TYPE ASCIZ STRING 
037210 000407 64$ ::GET OVER THE ASCIZ 
3765$ ASCIZ <12><15>/END PASS #/ 
033230 64$: 
033230 016746 146070 MOV $PASS ,-(SP) sz SAVE $SPASS FOR TYPEOUT 
77 TYPE PASS NUMBER IN OCTAL 
033234 104403 TYPOS 3:GO TYPE--OCTAL ASCII 
033236 006 BYTE 6 ii TYPE 6 DIGITS 
033237 000 BYTE QO 77 SUPPRESS LEADING ZEROS 


SEQ 0128 
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END OF PASS ROUTINE SEQ 0129 


033240 104401 033246 .67$ i ;TYPE ASCIZ STRING 
033244 000421 BR 66$ GET OVER THE ~ 
033310 ; 678: 7 TOTAL ERRORS SINCE LAST REPORT / 


033310 016746 145576 SERTTL,-(SP) 44 9 SERTTL FOR TYPEOUT 
;- TOTAL NUMBER OF ERRORS IN OCTAL 
033314 £300 TYPE=-OCTAL ASCII 
006 . +2 TYPE 6 DIGITS 
UPPRESS LEADING ZERO 
SI TYPE re es LINE FEED 


$GET42: 


-(SP) 
M$CLR.T,=(SP) 
$RTRN 


WITH A CLEARED ‘'T’’ BIT 


@442,RO + ¢ INSURE RO CONTAINS THE MONITORS 
$DOAGN URN ADDRESS 


SENDAD : PC,<RO) 


$CLR.T: 


$DOAGN: 
3PUSH OLD PSW AND PC ON STACK 
000020 #20, (SP) SICLEAR THE *'T’* BIT 
010000 145536 #B1T12,aSWR : ¢RUN - TRACE TRAP? 


1$ :BR IF NO 
000020 $TBIT 3218 i TIME FOR TRACE TRAP 
BM 1$ F NO 


000020 #20, (SP) S:SET TRACE TRAP 
033424 1$: A$LOOP ,~ (SP) >; JUMP TO START OF TEST 
SRTRN: 2 ¢RETURN@=THIS, IS CHANGED TO 
AN 'RTT’' IF “RTT IS A LEGAL 
i INSTRUCTION 


a(PC)+ 3 RETURN 
LOOP 


SRTNAD: . 
$TBIT: .WORD O 32''T'’ BIT STATE INDICATOR 
SENULL : Ald -1,-1,0 ZZNULL CHARACTER STRING 


$LOOP: 


- SBTTL SCOPE HANDLER ROUTINE 

Tre titi iti iti ist iii iii iii rrr, 

: *THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 
:*AND LOAD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG. (DISPLAY<7:0>) 
:*AND LOAD THE ERROR FLAG ($ERFLG) INTO DISPLAY<15:08> 

ia THE SWITCH wth | movieee BY THIS ROUTINE ARE: 


ON TES 
INHIBIT ITERATIONS 
LOOP ON ERROR 
LOOP ON TEST IN SWR<7:0> 


3: SCOPE=I0T 
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SCOPE HANDLER ROUTINE SEQ 0130 
033436 104406 CKSWR ;:TEST FOR CHANGE IN SOFT-SWR 
033440 032777 040000 145472 1S: BIT #B1T14,aSWR :;LOOP ON PRESENT TEST? 
033446 001114 BNE SOVER “YES IF SW14=1 
-#HAAASTART OF CODE FOR THE XOR TESTERMMAAA 
033450 000416 $XTSTR: BR 6$ 21F RUNNING ON THE *XOR'' TESTER CHANGE 
:THIS INSTRUCTION TO A ‘NOP’' (NOP=240) 
033452 013746 000004 MOV @#ERRVEC,-(SP) ::SAVE THE CONTENTS OF THE ERROR VECTOR 
033456 012737 033476 000004 MOV #5$, AMERRVEC :3SET FOR TIMEOUT 
033464 005737 177060 TST a#177060 OUT ON XOR? 
033470 012637 000004 MOV (SP)+,@M#ERRVEC ::RESTORE THE ERROR VECTOR 
033474 000463 BR $SVLAD ;3G0_TO THE NEXT TEST 
033476 022626 S$: CMP (SP) +, (SP)+ *CLEAR THE STACK AFTER A TIME OUT 
033500 012637 000004 MOV (SP) +, A#ERRVEC ; RESTORE THE ERROR VECTOR 
033504 000423 BR 7$ LOOP ON THE PRESENT TEST 
033506 6$%::###HHEND OF CODE FOR THE XOR’ TESTERMAMAA 
033506 032777 000400 145424 BIT #B81T08,aSWR :: LOOP ON SPEC. TEST? 
033514 001404 BEQ 2 :26R IF 
033516 127767 145416 145356 CMPB = @SWR, STSTNM ON THE "RIGHT TEST?  SWR<7:0> 
033524 001465 BEQ SOVER <BR IF YES 
033526 105767 145351 2s: TSTB = SERFLG SHAS AN ERROR OCCURRED? 
033532 001421 BEQ 3$ ::BR IF NO 
033534 126767 145355 145341 CMPB  $ERMAX,SERFLG ::MAX. ERRORS FOR THIS TEST OCCURRED? 
033542 101015 BHI ::BR IF NO 
033544 032777 001000 145366 BIT #B1T09, aSwR *:LOOP ON ERROR? 
033552 001404 BEQ 4$ Se F NO 
033554 016767 145330 145324 7$: MOV SLPERR,SLPADR  ::SET LOOP ADDRESS TO LAST SCOPE 
033562 000446 BR SOVER 
033564 105067 145313 4$: CLRB = $ERFLG ZERO THE ERROR FLAG 
033570 005067 145506 CLR $TIMES CLEAR THE NUMBER OF ITERATIONS TO MAKE 
033574 000415 BR 1$ ZESCAPE TO THE NEXT TEST 
033576 032777 004000 145334 3$: BIT #B1T11,aSwR :3 INHIBIT ITERATIONS? 
033604 001011 BNE 1$ “BR IF YES 
033606 005767 145512 TST $PASS HIF FIRST PASS OF PROGRAM 
033612 001406 BEQ 1$ INHIBIT ITERATIONS 
033614 005267 145264 INC $ICNT 2: INCREMENT ITERATION COUNT 
033620 026767 145456 145256 CMP STIMES,SICNT :CHECK THE NUMBER OF ITERATIONS MADE 
033626 002024 BGE SOVER *:BR IF MORE ITERATION REQUIRED 
033630 012767 000001 145246 1S: MOV #1, $I1CNT ; REINITIALIZE THE ITERATION COUNTER 
033636 016767 000052 145436 MOV SMXCNT,STIMES [SET NUMBER OF ITERATIONS TO DO 
033644 105267 145232 $SVLAD: INCB $TSTNM :: COUNT TEST NUMBERS 
033650 116767 145226 145444 MOVB  $TSTNM,$TESTIN ::SET TEST NUMBER IN APT MAILBOX 
033656 011667 145224 MOV (SP) , $LPADR ‘SAVE SCOPE LOOP ADDRESS 
033662 011667 145222 MOV (SP) ,$LPERR +. SAVE ERROR LOOP ADDRESS 
03 005067 145412 CLR $SESCAPE 2 CLEAR THE ESCAPE FROM ERROR ADDRESS 
033672 112767 000001 145215 MOVB #1,$ERMAX Y ALLOW ONE(1) ERROR ON NEXT TEST 
033700 016777 145176 145234 $OVER: MOV $TSTNM, @DISPLAY ::DISPLAY TEST NUMBER 
033706 016716 145174 MOV $LPADR. (SP) + : FUDGE RETURN ADDRESS 
033712 000002 RTI t:FIXES P 
ait 033714 000001 $MXCNT: 1 + MAX, NUMBER OF ITERATIONS 
5647 .SBTTL ERROR HANDLER ROUTINE 


eer tiiti titi iittititttit iii litt ii iii iii iit 
7*THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
; *SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 
;*AND GO TO ERTYPE ON ERROR 
is THE SWITCH ad PROVIDED BY THIS ROUTINE ARE: 
*SwW15=1 T ON ERROR 
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ERROR HANDLER ROUTINE SEQ 0131 
7*SW13=1 INHIBIT ERROR TYPEOUTS 

3 *Sw10=1 BELL ON ERROR 

3 *SWO9=1 LOOP ON ERROR 


3 *CALL 
:* N 3;ERROR=EMT AND N=ERROR ITEM NUMBER 


SERROR: 
:: TEST FOR CHANGE IN SOFT=SwR 
145157 7$: SERFLG i: SET THE ERROR FLAG 


ON'T LET THE FLAG GO TO ZERO 
145150 $TSTNM,@DISPLAY ; ;DISPLAY TEST — AND ERROR FLAG 
002000 -* hice amtamge 


; 7BELL ON ERROR 
NO = SKIP 

001306 , SBELL ; RING BELL 

145136 : SERTTL COUNT THE NUMBER OF ERRORS 

145136 (SP) , SERRPC 7:GET ADDRESS OF ERROR INSTRUCTION 

000002 #2 ,SERRPC 

145124 @SERRPC,SITEMB ;;STRIP AND SAVE THE ERROR ITEM CODE 

020000 #B1T13,aSWR 7;SKIP TYPEOUT IF SET 


20$ 33SKIP_ TYPEOUTS 
002174 PC ,ERTYPE 3;G0 TO USER ERROR ROUTINE 
001313 -SCRLF 


122767 000001 145314 MAPTENV, SENV 
001007 $ 33NO,SKIP APT ERROR RE 


PORT 
116767 145064 000004 SITEMB, a 3-SET ITEM NUMBER AS ERROR NUMBER 
eS 001010 J * ,SATY ;;REPORT FATAL ERROR TO APT 


0 
: BR 22$ 
145072 2s: aSwR 


033716 


7 sRUNNING IN APT MODE 


001000 


145920 
145210 


145056 


3$ 


#B1T09,aSWR 
4% 


SLPERR, (SP) 
$SESCAPE 


LT ONE 
SKIP IF CONT INUE 
SIMALT ON ERROR! 
:iTEST FOR CHANGE IN SOF T-SWR 
A A ERROR SWITCH SET? 


‘FUDGE RETURN FOR LOOPING 
SE CHECK FOR AN ESCAPE ADDRESS 


016716 145202 
022737 033356 000042 
001001 


:;BR IF NONE 
72 FUDGE RETURN ADDRESS FOR ESCAPE 
7 sACT~ -11 AUTO-ACCEPT? 

CH IF NO 


5$ 
SESCAPE , (SP) 
ASENDAD , a442 
6$ 


032777 001000 #B1T09,aSwR 

001013 ERM10 
001162 (SP) , a#SREGO 
177776 #-2, a#$REGO 
000377 #37) aSRECD 


ERM 
000002 #2, (SP) 


SEE IF ERROR #377 


ERM10: 
-SBTTL SAVE AND RESTORE RO-R5 ROUTINES 


DROID IOSD IOIOIOIIIDIIUIOIUIOIUIUIDIUIUIIUUIOIUIUDIDIUIIUDIIODO eit itntt 
3 *SAVE RO-R5 
3 *CALL: 
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SAVE AND RESTORE RO-R5 ROUTINES 


MACRO M1111 
SEQ 0132 


3% 


SAVREG 
; UPON RETURN FROM $SAVREG THE STACK WILL LOOK LIKE: 


‘ £TOP===(+16) 
p* +2---(+18) 
ye +4=-=-R5 
y® +6---RG 
y% +8=---R3 
3*+10---R2 
3*+12---R1 
3 *4+14---R0 
034154 $SAVREG: 
034154 010046 MOV RO,-(SP) :zPUSH RO ON STACK 
034156 010146 MOV R1,~(SP) :Z7PUSH R1 ON STACK 
034160 010246 MOV R2,-(SP) ;7PUSH R2 ON STACK 
034162 346 MOV R3,-(SP) 7 PUSH R3 STACK 
034164 010446 MOV R4,-(SP) se H R4 STACK 
034166 010546 MOV R5,-(SP) es H RS ON STACK 
034170 016646 000022 MOV 22(SP), -(SP) ;zSAVE PS OF MAIN FLOW 
034174 016646 22 MOV 22(SP) .=(SP) 77 SAVE PC OF MAIN FLOW 
0342 016646 22 MOV 22(SP) ,-(SP) 3-SAVE PS OF CALL 
0342 016646 000022 22(SP) ,-(SP) sz SAVE PC OF CALL 
034210 2 RTI 
; *RESTORE RO-R5 
s*CALL: 
se RESREG 
034212 $RESREG: 
034212 012666 000022 MOV (SP)+,22(SP) : ¢RESTORE PC OF CALL 
034216 012666 000022 MOV (SP) +,22(SP) RESTORE PS OF CALL 
034222 012666 000022 MOV (SP)+,22(SP) + :RESTORE PC OF MAIN FLOW 
034226 012666 000022 MOV (SP)+,22(SP) 7cRESTORE PS OF MAIN FLOW 
034232 012605 MOV (SP)+,R5 7:POP STACK INTO R5 
034234 012604 MOV (SP) +.R4 7zPOP STACK INTO R4 
034236 012603 MOV (SP)+,R3 :ZzPOP STACK INTO R3 
034240 2602 MOV (SP)+,R2 :zPOP STACK INTO R2 
034242 012601 MOV (SP)+,R1 ;;POP STACK INTO R1 
034244 600 V (SP)+,RO + POP STACK INTO RO 
034246 RTI 
5650 
5651 . SBTTL TYPE ROUTINE 
MeOASSBASBEASAA£ZASLAL£SZALELSLSLASALASSELSSESLE SESE SASSER EER AREER RRR RRR SARE RRS S SS 
«GROUT INE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A O BYTE. 
:*THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED 
;*NOTE1: SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 
;*NOTE2 SPILLS CONTAINS THE NUMBER OF FILLER i ee REQUIRED. 
7 *NOTES $FILLC CONTAINS THE CHARACTER TO FILL AFTER 
** 
7*CALL 
s*1) USING A TRAP INSTRUCTION 
“oR TYPE -MESADR 7 zMESADR IS FIRST ADDRESS OF AN ASCIZ STRING 
tt 
: TYPE 
‘ MESADR 
**® 
034250 105767 144703 $TYPE: TSTB $TPFLG iTS Hew | A TERMINAL? 
034254 100002 BPL 1$ 7;BR IF 
034256 000000 HALT +S HALT HERE IF NO TERMINAL 
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TYPE ROUTINE 


PRT B 


006002 
000011 
000200 


000200 


000056 
144546 
144536 
000001 


000032 
000142 


000040 
000014 
000007 


144462 


000002 
144442 


144436 
177600 
000023 
144416 


144412 
177600 


MACRO M1111 


1$: 
145040 
145031 


61$: 
62$: 


145007 
23: 


60$: 
3$: 


4$: 


5$: 
6$: 


7$: 


BR 
;HORIZONTAL TAB 
8$: MOVB 


9$: 
000122 


$TYPEC: 


144454 


3$: 
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#APTENV, SENV 


6 
MAPTSPOOL , SENVM 
62$ 


PC,SATY3 


——— 


(RO) +,=-(SP) 
4$ 

(SP) + 
(SP)+,RO 
#2, (SP) 
at 
ACRLF , (SP) 


(SP) + 


SCHARCNT 
2$ 


PC, $TYPEC 
SFILLC,(SP)+ 


es 
SNULL ,~ (SP) 
1(SP) 

6$ 


PC,$TYPEC 
SCHARCNT 


7$ 
PROCESSOR 

, (SP) 
+ $TYPEC 
He * $CHARCNT 
(SP) + 
2$ 
a$TPSs 
$TYPEC 
2(SP) ,a$TPB 
a$TKS 
a$TKB,-(SP) 
#177600, (SP) 
#23, (SP)+ 
2$ 
a$TKS 
3$ 


a$TkB 
ot 7200, *SP) 


SEQ 0133 


7 LEAVE 


es RO 
iGET ADDRESS OF ASCIZ SIRING 
UNNING IN APT MODE 
‘INO. GO CHECK FOR APT CONSOLE 
+ ¢ SPOOL L MESSAGE TO APT 
.GO CHECK FOR CONSOLE 
SETUP MESSAGE ADDRESS FOR APT 
7:SPOOL MESSAGE TO APT 
: MESSAGE ADDRESS 
:APT CONSOLE SUPPRESSED 
7-YES,SKIP TYPE OUT 
;sPUSH CHARACTER TO BE TYPED ONTO STACK 
7:BR IF IT ISN'T THE TERMINATOR 
731F TERMINATOR POP IT OFF THE STACK 
;sRESTORE RO 
2 ¢ADJUST RETURN PC 
TURN 


3 BRANCH IF <HT> 
>; BRANCH IF NOT <CRLF> 


;3POP <CR><LF> EQUIV 
33 TYPE A CR AND LF 


;zCLEAR CHARACTER COUNT 
::GET NEXT CHARACTER 
2260 TYPE THIS CHARACTER 
S IT TIME FOR FILLER CHARS.? 
IF NO GO GET NEXT CHAR. 
23GET # OF FILLER CHARS. NEEDED 
THE CHAR. 


NULL 
; :DOES A NULL NEED TO BE TYPED? 
IF NO--GO POP THE NULL OFF OF STACK 
7:G0 TYPE A NULL 
a COUNT AS A COUNT 


7 sREPLACE eo, WITH SPACE 
73 TYPE A SPACE 
: ;BRANCH IF NOT AT 

STOP 


::POP SPACE OFF STACK 
3;GET NEXT CHARACTER 
7zWAIT UNTIL PRINTER IS READY 


LOAD CHAR TO BE TYPED INTO DATA REG. 
: SEE IF KEYBOARD IS TALKING. 
BRANCH IF IT ISN'T. 


>:PUSH CHARACTER ONTO STACK 
;-BIT CLEAR TOP BYT _— PARITY BIT. 
sisee if ag 


ON STACK 
iBit CLEAR TOP BYTE AND PARITY BIT. 
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TYPE ROUTINE SEQ 0134 

034540 022726 00002) CMP #21,(SP)+ ;sSEE IF THIS ia A *Q. 
034544 001366 BNE 3$ ; ;BRANCH BACK 9 MORE WAIT IF NOT. | 
034546 122766 000015 000002 2$: CMPB A#CR,2(SP) 31S i ie CARRIAGE RETURN? 
034554 001003 BNE 1$ H IF NO 
034556 105067 090014 CLRB SCHARCNT 1 VESSACLEAR CHARACTER COUNT 
034562 000406 BR STYPEX 3cEXIT 
034564 122766 (00012 000002 1$: CMPB ALF, —" iI CHARACTER A LINE FEED? 
034572 001402 BEQ STYPEX CH _IF YES 
034574 105227 INCB (PC)+ 7:COUNT THE CHARACTER 
034576 000G00 $SCHARCNT:.WORD 0 3-CHARACTER COUNT STORAGE 

5652 034600 900207 STYPEX: RTS PC 

5653 -SBTTL BINARY TO OCTAL (ASCII) AND TYPE 


J FARRER EEE EERE ERE ERERREEKEKEREREREKERERERREEEKEREREERERE EH 

:*THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT 
;*OCTAL (ASCII) NUMBER AND TYPE IT. 

; «ST YPOS---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 
5” L: 


it MOV NUM ,-(SP) ; NUMBER TO BE TYPED 

3; TYPOS ;;CALL FOR TYPEOUT 

;* -BYTE N :zN=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 
aw -BYTE ™ 7 7M=1 OR O 

s* 321=TYPE LEADING ZEROS 

* ;;0=SUPPRESS LEADING ZEROS 


 #STYPON=---ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
:*$TYPOS OR STYPOC 


s*CALL: 

te MOV NUM, -(SP) :NUMBER TO BE TYPED 

3* TYPON S CALL FOR TYPEOUT 

** 

a HERE FOR TYPEOUT OF A 16 BIT NUMBER 

> *CALL: 

3* MOV NUM ,=(SP) : ;NUMBER TO BE TYPED 

Tes TYPOC ;CALL FOR TYPEOUT 
034602 017646 000000 $TYPOS: MOV a(SP) ,-(SP) PICKUP THE MODE 
034606 116667 0600001 000211 MOVB 1(SP) , SOF ILL SSLOAD ZERO FILL SWITCH 
034614 112667 000207 MOVB (SP)+,$OMODE+1 ;;NUMBER OF DIGITS TO TYPE 
034620 062716 000C02 ADD #2, (SP) : ;ADJUST RETURN ADDRESS 
034624 000406 BR STYPON 
034626 112767 000001 000171 $TYPOC: MOVB #1,S$0F ILL :zSET THE ZERO FILL SWITCH 
034634 112767 000006 000165 MOVB #6, SOMODE +1 :zSET FOR SIX(6) DIGITS 
034642 112767 000005 000154 $TYPON: MOVB #5 ,SOCNT 7; SET THE ITERATION COUNT 
034650 010346 MOV R3,-(SP) 72 SAVE R3 
034652 010446 MOV R4,-(SP) st VE R4 
034654 010546 MOV R5,-(SP) SAVE R5 
034656 116704 000145 MOVB SOMODE +1, RS GET THE NUMBER OF DIGITS TO TYPE 
034662 005404 NEG R4 
034664 062704 000006 ADD #6,R ; SUBTRACT IT FOR MAX. ALLOWED 
034670 110467 000132 MOVB Re SOMODE SAVE IT FOR USE 
034674 116704 000125 MOVB SOFILL.R4 2 GET THE ZERO FILL SWITCH 
034700 016605 000012 MOV 12(SP) ,R5 ;PICKUP THE INPUT NUMBER 
034704 005003 CLR R3 CLEAR THE OUTPUT WORD 
034706 006105 1$: ROL R5 : sROTATE MSB INTO °C’ 
034710 000404 BR 3$ ;GO DO MSB 
034712 006105 2$: ROL R5 +S FORM THIS DIGIT 
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BINARY TO OCTAL 


5654 
5655 


035150 


(ASCII) AND TYPE 


000 
000000 


112767 
112767 


000403 
112767 


012767 


000076 
177770 


000002 


000001 
000001 


000001 


000206 
000001 
000100 
000004 
000002 
144172 
144200 
144170 


144164 
000004 


MACRO M1111 


000004 


000236 
000226 


000220 


144242 
144233 


000004 


144140 


3$: 


4$: 
5$: 


7$: 


63: 
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R5 
R5,R3 
R3 
SOMODE 
7$ 


#177770,R3 


(SP) +, (SP) 


0 
0 
0 
0 
0 


3;GET LSB OF THIS DIGIT 
fit B THIS DIGIT? 


F NO 
:3GET RID OF JUNK 
2s TEST FOR 0 


3; SUPPRESS THIS 0? 
IF YES 


; DON'T SUPPRESS ANYMORE 0'S 
; MAKE THIS DIGIT ASCII 
;sMAKE ASCII IF NOT ALREADY 
3;SAVE FOR TYPING 
3:GO TYPE THIS DIGIT 
: ¢ COUNT BY 1 
:¢BR c MORE TO DO 

F DONE 


‘ EINSURE LAST DIGIT ISN'T A BLANK 
::GO DO a F aa DIGIT 


+ =REST R3 
ce SET THE STACK FOR RETURNING 


7 sRETURN 

3sSTORAGE FOR ASCII DIGIT 

72 TERMINATOR FOR TYPE ROUTINE 
:sOCTAL DIGIT COUNTER 

7sZERO FILL SWITCH 

; NUMBER OF DIGITS TO TYPE 


-SBTTL APT COMMUNICATIONS ROUTINE 


RY (PRS RSESSALASASSLSASELASERSES ARES ES ERAS ASSAEL ARR RRR R ARERR RRR RDS DO! 


2$: 


#1, SFFLG 
#1, SMFLG 


SATYC 
#1 ,$FFLG 
RO,-(SP) 
R1,~(SP) 
$MFLG 


5$ 
Cred aces 
#APTSPOOL , SENVM 


a4(SP) ,RO 
#2,4(SP) 
_ 
RO, S$MSGAD 
(RO) + 

2$ 

$MSGAD ,RO 
RO 


RO, $MSGLGT 
#4, SMSGTYPE 


» 3;TO REPORT FATAL ERROR 


3:TO TYPE A MESSAGE 
::TO ONLY REPORT FATAL ERROR 


3zPUSH RO ON PD anya 
3;PUSH R1 ON STA 
a ee TYPE A MESSAGE? 


NO 

; OPERATING UNDER APT? 
NOT: BR 

22 SHOULD SPOOL MESSAGES? 


I 
GET ME SSAGE ADDR. 
; ;BUMP RETURN ADDR. 
4 is IF DONE W/ LAST XMISSION? 
:1F NOT: WAIT 
:PUT ADDR IN MAILBOX 
‘FIND END OF MESSAGE 


:;SUB START OF MESSAGE 

32GET MESSAGE LNGTH IN WORDS 
::PUT LENGTH IN MAILBOX 

:; TELL APT TO TAKE MSG. 


35 


Fs acccaatiensacnaiicaeumidaestntetie: tnd Gciaiamtspiibiaaticiapdaetesletemlecen a 
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CKFPBAG FP11F FLTG PNT PRT B MACRO M1111 
APT COMMUNICATIONS ROUTINE SEQ 0136 
035156 000413 BR 5$ 
035160 017667 000004 000016 38: MOV a4 (SP) ,4$ ::PUT MSG ADDR IN JSR LINKAGE 
035166 062766 000002 000004 ADD #2,4(SP) “BUMP RETURN ADDRESS 
035174 016746 142576 MOV 177776, =(SP) PUSH 199776 ON STACK 
035200 006767 177044 JSR PC $TYPE *:CALL TYPE MACRO 
035204 4$:- .WORD 0 
035206 S$: 
5206 105767 000062 10$: STB) ss SFFLG ;:SHOULD REPORT FATAL ERROR? 
035212 001416 BEQ 12$ :IF NOT: BR 
035214 005767 144116 TST SENV :SRUNNING UNDER APT? 
035220 001413 BEQ 12$ :IF NOT: BR 
035222 005767 144070 11$: TST SMSGTYPE FINISHED LAST MESSAGE? 
035226 001375 BNE 11$ ‘IF NOT: WAIT 
30 017667 000004 144062 MOV @4 (SP), SFATAL GET ERROR Fa 
035236 062766 2 000004 ADD #2,4(SP) ;BUMP RETURN ADDR. 
035244 005267 144046 INC $MSGTYPE Zi TELL APT TO TAKE ERROR 
035250 105067 000020 12$: CLRB SFFLG CLEAR ty FLAG 
035254 105067 00001 CLRB = $LFLG =CLEAR LOG FLAG 
75260 105067 000006 CLRB = SMFLG 77 CLEAR MESSAGE FLAG 
035264 012601 MOV (SP) +,R1 POP STACK INTO R1 
035266 012600 MOV (SP) +.RO ::POP STACK INTO RO 
035270 000207 RTS PC + : RETURN 
035272 $MFLG: .BYTE 0 : sMESSG. FLAG 
035273 000 $LFLG: .BYTE 0 :LOG FLAG 
035274 SFFLG: y he 0 ZFATAL FLAG 
. V N 
000200 APTSIZE=200 
000001 APTENV=001 | 
000100 APTSPOOL=100 
04 APTCSUP=040 
5656 
5657 .SBTTL TTY INPUT ROUTINE 


SUIS ISISISISIIISISISIIIOI IOI IUIIOIICIOITIOI IOI IOIOIOIOIOIOITIOI TOR TROT OITA ASAIN 
-ENABL LSB 

DISA OID ISI IOI SIIDIDIIDIOIOIDISIOIDIOIIIOIIOIIOIDIIDIDIDIOIDIOIOI IDIOT OI TOI III IOI IIIT TTI TOE 

> *SOFTWARE SWITCH REGISTER CHANGE ROUTINE. 

;*ROUTINE IS ENTERED FROM THE TRAP HANDLER, AND WILL 

:*SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP CALL 





035276 022767 000176 
304 
143632 
143626 
177600 
000007 
143576 
035705 
035712 
142620 
035723 
005046 
105777 


03 
035370 143550 


;*WHEN OPERATING IN TTY FLAG MODE. 
CMP AMSWREG , SWR 


143634 $CKSWR: 


000001 


$GTSWR: 


19$: 
7$: 


BNE 
TSTB a$TKS 

15$ 
@$TKB,-(SP) 


VB 
BIC CTT, (SP) 
CMP 7 ,(SPS+ 


BNE 1 
CMPB $AUTOB 41 
BEQ 15$ 


TYPE -SCNTLG 
. SMSWR 
MOV SWREG,~(SP) 


TYPE , SMNEW 
CLR ~(SP) 
CLR ~(SP) 
TSTB asTKs 


2i1S THE SOFT-SWR SELECTED? 
CH IF NO 


:3 CHAR THERE? 
yd a DON'T WAIT AROUND 
77SAVE THE CHAR 
cee iT & THE ASCII 
S IT A CONTROL G? 
:INO, RETURN TO USER 
2 TARE We » ae IN AUTO-MODE ? 


CH 
£7 ECHO THE CONTROL-G (*G) 
TYPE CURRENT CONTENTS 
TISAVE SWREG FOR TYPEOUT 
2460 TYPE=-OCTAL ASCIICALL DIGITS) 
OMPT FOR NEW SWR 


SZ CHAR THERE? 
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TTY INPUT ROUT 
035374 


035556 


INE 


PRT B 


143544 
177600 
000025 


035700 
600006 


000015 
000004 
000002 
00000 


6 
001313 
143451 


000100 
176756 
000060 


000067 


000060 
000002 


000002 
177776 


001312 


000004 
143350 
143344 
177600 


143316 


143312 
177600 
000021 


MACRO M1171 


143470 


000001 
143446 


000002 


000004 
000004 
000023 


17$: 


18$: 
. DSABL 


BR 
LSB 
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7$ 
a$TKB,-(SP) 

#*(177, (SP) 
(SP) 25 
0$ 


1 
-$CNTLU 
6 


(SP) ,415 
16$ 

4(SP) 

11 

2(SP) ,aSWR 
6,SP 


.$CRLF 
—_— 


$ 
#100, a$TKS 


PC,$TYPEC 
(SP) ,460 


18$ 

(SP) ,467 
18$ 

#60, (SP) + 
2(SP) 
17$- 

(SP) 

(SP) 

(SP) 
2(SP) 
-2(SP), (SP) 
7$ 

, SQUES 
20$ 


sc1F NOT TRY AGAIN 

;3PICK UP CHAR 

s MAKE IT 7-BIT ASCII 

3211S IT A CONTROL-U? 

- ;BRANCH IF NOT 

STYES, “ CONTROL=U (“U) 
ZZ 1GNORE P REVIOUS INPUT 
:7LET'S TRY IT AGAIN 

S Amy <CR>? 


IF NO 
77YES, IS IT THE FIRST CHAR? 
P YES 


: F 

; sRE~ENABLE ior KBD INTERRUPTS? 

7 RE-ENABLE TTY KBD INTERRUPTS 
TURN 


::BRANCH IF YES 


IF MS, 
-OSTRIP-OFF A SCI] 
71S THIS THE FIRST CHAR 
* BRANCH IF YES 
:éNO, SHIFT PRESENT 
sé CHAR OVER TO MAKE 
: ROOM FOR ‘ 
“KEEP COUNT OF CHAR 
:3SE1 IN NEW CHAR 
GET THE NEXT ONE 
TYPE ?<CR><LF> 
SIMULATE CONTROL -U 


WEARER REAESESARASESRSERRRRRRREASELEL SARA SERS ES RASA RAS RAR ASE S ASS DS 


[*THIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 


7 *CALL: 
** 


-* 
. 
-* 
e 


$RDCHR: 


1$: 


23: 


RDCHR 
RETURN HERE 


(SP) ,-(SP) 
4(SP) ,2(SP) 
a$TKS 


1$ 
@$7KB,4 (SP) 


#°C<177>.4 (SP) 


4(SP) ,#2 
$ 


3 

asTKS 

2$ 
a$TKB,-(SP) 
#*0177, (SP) 
(SP)+, #21 
2$ 


32 INPUT A SINGLE CHARACTER FROM THE TTY 
: s CHARACTER IS ON THE STACK 
;:WITH PARITY BIT STRIPPED OFF 


;k.'SH — THE PC 
. iiSAve T HE PS 
WAIT F 


SIA CHARACTER 
7;READ THE TTY 
3:GET RID OF JUNK IF ANY 
ie S IT A CONTROL-S? 
CH IF NO 


WAIT FOR A CHARACTER 
*:LOOP UNTIL ITS THERE 
» GET CHARACTER 

T 


SEQ 0137 





CKFPBAU FP11F FLTG PNT PRT B 
TTY INPUT ROUTINE 


5658 
5659 


035734 


035754 
035756 


035760 
035766 


035770 


035756 


000004 
000004 
000040 


000002 


035770 


000004 


111 
17-17 


ey 


SEC 0138 


THEN USING THE ADDRESS OBTAINED IT WiLL 


MACRO M1111 18=SEP=79 13:43 PAGE 
BR 1$ athe RE SUME 
000140 38: CMP 4 (SP) ,4140 31S 1T UPPER CASE? 
BLT 4$ : :BRANCH IF YES 
000175 CMP 4(SP) ,4175 71S IT A SPECIAL CHAR? 
BGT 4$ 3é CH IF YES 
000004 BIC #40,4(SP) 7 MAKE IT UPPER CASE 
4$: RTI 3:60 BACK TO USER 
015 $CNTLU: .ASCIZ /*U/<15><12> 7: CONTROL ‘U 
015 $CNTLG: .ASCIZ /*G/<15><12> : CONTROL ‘'G’' 
123 SMSWR: .ASCIZ <15><12>/SwWR = 
040 
000 
116 SMNEW: .ASCIZ / NEW = 
040 
000 
.SBTTL TRAP DECODER 
Sf RAR AAA AAR RE RRA EAEREEEERRERKERARRAAERARARERERER 
;*THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE ‘‘TRAP’’ INSTRUCTION 
7*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
;*OF THE DESIRED ROUTINE. 
:*GO TO THAT ROUTINE. 
$TRAP: MOV RO,-(SP) 77 SAVE RO 
MOV 2(SP),RO 2 3GET TRAP ADDRESS 
TST -(RO) . CKUP BY 2 
MOVB (RO) ,RO :3GET RIGHT BYTE OF TRAP 
ASL RO sPOSITION FOR INDEXING 
are ers RO i INDEX TO TABLE 
RTS :GO TO ROUTINE 
s THIS IS USE to HANDLE THE “GETPRI'’ MACRO 
$TRAP2: MOV SP) ,-<SP : MOVE THE PC DOWN 
000002 MOV 4(SP), ey; SP) + :MOVE THE PSW DOWN 
RTI  TRESTORE THE PSW 
-SBTTL TRAP TABLE 


2*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 


$TRPAD: ° 


-LPER 
$TERM=.-$TRPAD 


: *BY THE *‘TRAP’’ INSTRUCTION. 
ROUTINE 


$STRAP2 

32 CALL=TYPE 

3, CALL=TYPOC 
3: CALL=TYPOS 


CALL= SAVREG 
+ CALL=RESREG 
32 CALL=RSETUP 
32 CALL=LPERR 


TRAP+1(104401) TTY TYPEOUT ROUTINE 

TRAP+2(104402) TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
TRAP+3(104403) TYPE OCTAL NUMBER (NO LEADING ZEROS) 
TRAP+4(104404) TYPE OCTAL NUMBER (AS PER LAST CALL) 
TRAP+5(104405) GET eo SETTING 

TRAP+6(104406) TEST FOR CHANGE IN SOFT~SWR 
TRAP+7(104407) TTY TYPEIN CHARACTER ROUT INE 
TRAP+10(104410) SAVE RO-R5S ROUTINE 

TRAP+11(104411) RESTORE RO-R5S ROUTINE 

TRAP+12(104412) ROUTINE TO INITIALIZE AFTER EVERY TEST 
TRAP+13(104413) ROUTINE TO SET LOOP ON ERROR ADDRESS 


-SBTTL POWER DOWN AND UP ROUTINES 


'WERARARARASLALAASAASERLESESRARS RRR RAS ARR RRR RR RRS RR RRR RRRR RRR RARER DS DS | 


;POWER DOWN ROUTINE 


- 


ay 
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POWER DOWN AND UP ROUTINES SEQ 0139 
036020 012737 036176 000024 $PWRDN: MOV § ASILLUP, @#PWRVEC ;;SET FOR FAST UP 
036026 012737 000340 000026 MOV #340, a#PWRVEC+2 ;:PRIO:7 
036034 010046 MOV —- RO, = (SP) :;PUSH RO ON STACK 
036036 010146 MOV =—-R1.=(SP) :;PUSH R1 ON STACK 
036040 010246 MOV —- R2. = (SP) : PUSH R2 ON STACK 
036042 010346 MOV —-R3,=(SP) :7PUSH R3 ON STACK 
036044 010446 MOV —-R4. = (SP) :IPUSH R4 ON STACK 
036046 010546 MOV —R5 = (SP) :ZPUSH R5 ON STACK 
036050 017746 143064 MOV —- @SWR, = (SP) ZIPUSH @SWR ON STACK 
036054 010667 000122 MOV — SP, SSAVR6 SAVE SP 
036060 012737 036072 000024 MOV WSPWRUP, a#PWRVEC’ ;SET UP VECTOR 
036066 000000 HALT 
036070 000776 BR .-2 ;;HANG UP 
A RERRERAR ERE RER EERE ERE REE RER REE RRR ERE E RRR ERE 
POWER UP ROUT INE 
036072 012737 036176 000024 $PwRUP: #SILLUP,@MPWRVEC ;;SET FOR FAST DOWN 
036100 016706 000076 MOV‘ SSAVR6, SP ::GET_SP 
036104 005067 000072 CLR $SSAVR6 ;z;WAIT LOOP FOR THE TTY 
036110 005267 000066 1$: INC  $SAVR6 IWAIT FOR THE INC 
036114 001375 BNE 18 ZI0F WORD 
036116 012677 143016 MOV (SP) +, @SWR ::POP STACK INTO @SWR 
036122 012605 MOV (SP) +.R5 POP STACK INTO R5 
36124 012604 MOV (SP) +.R4 Z:POP STACK INTO R4 
036126 012603 MoV (SP) +.R3 ;POP STACK INTO R3 
036130 012602 MoV (SP) +.R2 POP STACK INTO R2 
036132 012601 MoV (SP) +.R1 POP STACK INTO R1 
036134 012600 MoV _—- (SP) +-RO :POP_STACK INTO RO 
036136 012737 036020 000024 MOV § #SPWRDN, @APWRVEC’;;SET UP THE POWER DOWN VECTOR 
036144 012737 000340 000026 MOV = #340, a#PWRVEC+2 ;:PRIO:7 
036152 104401 TYPE ZREPORT THE POWER FAILURE 
036154 037150 SPWRMG: .WORD  POWERM POWER FAIL MESSAGE POINTER 
036156 012716 MOVs (PC) +, (SP) ;:RESTART AT START 
036160 004336 $PWRAD: .WORD START RESTART ADDRESS 
036162 042766 000020 000002 BIC #20, 2( SP) TCLEAR ‘'T'' BIT 
036170 005067 175234 CLR —s STBIT SICLEAR THE "'T’' BIT FLAG 
036174 000002 RTI 
036176 000000 SILLUP: HALT THE POWER UP SEQUENCE WAS STARTED 
936200 000776 BR .-2 ii BEFORE THE POWER DOWN WAS COMPLETE 
sees 18202 900000 SSAVR6: 0 PUT THE SP HERE 
5666 
5667 .SBTTL ERROR TYPE OUT ROUTINE 
5668 FD RR E RE E ERE E RE REKEE ERE ERERKEEEEEEEREREEERE AREER EEE 
DDE ERE RRR EERE EEE E REE EERE EKEEEEEE 
5669 :*THIS ROUTINE IS CALLED TO TYPE AN ERROR MESSAGE WHICH IS INCLUDED 
5670 :*IN THE ERROR MESSAGE DATA TABLE. IT IS CALLED BY THE SERROR ROUTINE 
5671 :*OR BY FIRST SETTING $ITEMB EQUAL TO THE ERROR TABLE ITEM TO BE PRINTED 
5672 ;*OUT AND THEN ECECUTING A: 
5675 036204 104401 ERTYPE: TYPE TYPE A CRLF 
5676 036206 001313 WORD $CRLF 
5677 036210 113737 001102 001232 MOVB = a#STSTNM, a#STMPO 
5678 036216 042737 177400 001232 BIC #177400, a#$TMPO 


5679 036224 013737 001116 001234 MOV @A#SERRPC ,aa$TMP 1 GET PC OF CALL 
5680 036232 010046 MOV RO,-(SP) ;SAVE RO 


5700 

5701 036314 
5702 036320 
5703 036322 
5704 036324 
5705 036326 
5706 036330 
5707 

5708 036332 
5709 036336 


5713 036346 
5714 
5715 036350 
5716 036352 
5717 036354 
5718 
5719 036356 
5720 
5721 036360 
5722 036362 
5723 
5724 036366 
5725 
5726 036370 
5727 036372 
5728 
5729 036374 


5734 036404 
5735 036410 
5736 

5737 036412 
5738 036414 


CKFPBAO FP1IF FLTG PNT 
ERROR TYPE OUT ROUTINE 


006300 
062700 
012037 
001404 
104401 
000000 


104401 
001313 


012037 
04 


001442 
036324 


036342 


036642 


036624 


000002 


K_11 
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20$: 


2$: 


3$: 


4$: 


5$: 


6$: 
ERT1: 


7$: 
8$: 


a4$1TEMB,RO 
laa 


@ASERRPC ,-(SP) 


@4ERTS 
#377 ,RO 
O$ 


R 
ASERRTB,RO 
(RO) +, a42$ 
3$ 


$CRLF 
(RO) +, aA4$ 
5$ 


0 

$CRLF 
R1,-(SP) 
R2,-(SP) 
R3,-(SP) 


(RO) +,R1 

6$ 

@AERTS 

(RO) .RO 

(RO) 

7$ 
a(R1)+,-(SP) 
@A#ERT2 

#2, (RO) 

9$ 


a(R1)+,R2 
(R2)+,-(SP) 





SEQ 0140 


;GET THE ITEM NUMBER. 


;1F ZERO THEN JUST 
PRINT THE PC 


OTHERWISE MAKE RO AN 
; INDEX FOR THE TABLE. 


zPICK UP THE ADDRESS 
OF THE EM, ERROR MESSAGE 


GET THE DH,DATA HEADER 


SAVE R1,R2 ANC R35 


;GET THE ADDRESS OF THE 
:DATA TABLE. 


RETURN IF NO DATA. 
:GET A POINTER TO THE DATA 


sFORMAT TABLE. 
sFORMAT ZERO? 


FORMAT ZERO SO TYPE 
AN OCTAL NUMBER. 


:FORMAT TWO? 


sFORMAT TWO SO TYPE TwO 
sOCTAL NUMBERS. 


L_11 
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ERROR TYPE OUT ROUTINE SEQ 0141 
5739 036416 104402 TYPOC 
5740 036420 104401 TYPE 
5741 036422 037217 -WORD SPACE 
5742 036424 011246 MOV (R2) ,=(SP) 
5743 036426 104402 TYPOC 
30 000137 036624 JMP @FERT2 
5746 036434 122710 000003 9$: CMPB #3,(RO) FORMAT THREE? 
ares 036440 001021 BNE 10$ 
5749 036442 013102 MOV a(R1)+,R2 FORMAT THREE SO TYPE 
5750 036444 012246 MOV (R2)+,-(SP) FOUR OCTAL NUMBERS. 
5751 036446 104402 TYPOC 
5752 036459 104401 TYPE 
5753 036452 037217 -WORD SPACE 
5754 036454 012246 MOV (R2)+,-(SP) 
5755 036456 104402 TYPOC 
5756 036460 104401 TYPE 
5757 036462 037217 -WORD SPACE 
5758 036464 012246 MOV (R2)+,-(SP) 
5759 036466 104402 TYPOC 
5760 036470 104401 TYPE 
5761 036472 037217 «WORD SPACE 
5762 036474 011246 MOV (R2) ,~(SP) 
5763 036476 104402 TYPOC 
Tho! 036500 000137 936624 JMP @4ERT2 
5766 036504 122710 000004 10$: CMPB #4, (RO) FORMAT FOUR? 
gre! 036510 001005 BNE 11$ 
5769 036512 013146 MOV @(R1)+,=-(SP) ;FORMAR FOUR SO TYPE 
5770 036514 104403 TYPOS AN OCTAL NUMBER 
5771 036516 016 -BYTE 16 ; SUPPRESSING LEADING ZEROES. 
5772 036517 000 -BYTE 0 
he 036520 000137 036624 JMP @FERT2 
5775 036524 122710 000005 118: CMPB #5, (RO) FORMAT FIVE? 
a7 036530 001006 BNE 13$ 
5778 036532 012137 036540 MOV (R1)+,a412$ FORMAT FIVE SO TYPE AN 
5779 036536 104401 TYPE sASCIZ STRING. 
5780 036540 000000 12$: -WORD 0 
re 4 036542 000137 036630 JMP a#ERT3 
5783 036546 122710 000011 13$: CMPB #11, (RO) FORMAT ELEVEN? 
ores 036552 001006 BNE 15$ 
5786 036554 013137 036562 MOV a(R1)+,a414$ :FORMAT ELEVEN SO PICK 
5787 036560 104401 TYPE z;A_POINTER TO AN ASCIZ 
788 036562 000000 14$: -WORD 0 i STRING. 
rh a4 036564 000137 036630 JMP a#ERT3 
5791 036570 122710 000012 15$: CMPB #12,(RO) FORMAT TWELVE? 
ras 036574 901012 BNE 17$ 
5794 036576 013102 MOV a(R1)+,R2 FORMAT TWELVE SO TYPE 
5795 0366 012703 000006 MOV #6 ,R3 TYPE SIX OCTAL NUMBERS 


Sacares. Sie seaneeiees 


M11 
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TYPE OUT ROUTINE 


SEQ 0142 
012246 16$: MOV (R2)+,=(SP) 


5802 

5803 036622 

5805 036624 104401 : PRINT A TAB AFTER TYPING 
re 036626 . 7AN DATA TABLE ENTRY 


;OF ALL FORMATS EXCEPT 
SASC1Z, FORMATS 5 OR 11 


5809 
5810 036630 005200 : RO :POINT TO THE NEXT FORMAT 
(R1) END OF DATA TABLE. 
ERTS 
036370 @FZERT1 


DONE. 
$CRLF 


(SP)+,R3 RESTORE R1,R2 AND R3 
(SP)+,R2 

5819 036652 (SP)+,R1 

5820 036654 : (SP)+,RO RESTORE RO. 

ons) 036656 PC AND RETURN. 


-SBTTL FPP SPURIOUS TRAP TO 244 HANDLER 
DIRE EIEIO ISIC IOISIIIISIIOIIOIOIOIIOIOIUIOIOIOIOIOIIIOIOIIOIIIOIIOIIOOI OI IOI IOI 
TDR IIE AIEEE IIIA IEIIEIIOIIOIDISISIOIOIIOIIIOIIIOIIOIOIOIOIUIOIOI IOUT it 
3*THIS ROUTINE HANDLES UNEXPECTED TRAPS TO THE FPP TRAP VECTOR AT 244. 
;*THE LAST FPP INSTRUCTION EXECUTED AND ITS ADDRESS HAS BEEN RECORDED 
; * THESE ALONG WITH THE FEC, FPS AND PC OF TRAP ARE REPORTED. 


011637 001236 FPSPUR: MOV (SP) ,a@#STMP2 : SAVE PC OF TRAP. 
CMP (SP)+, (SP) + ;RESTORE SP. 

5834 036666 170 STFPS RO GET FPS 
5835 036670 001240 MOV RO, a#$STMP3 
5836 036674 170300 STST RO GET FEC 
5837 036676 001242 MOV RO, a#$TMP4 
5838 036702 : ERROR +247 
5839 036704 RSE TUP 3GO INITIALIZE THE FPS AND STACK; AND 


0 E SO 
VIRTUAL CONSOLE SWITCH REGISTER (HAS 
r ;THE USER TYPED CONTROL G?) 
5840 036706 033144 JMP —— @WSEOP 


-SBTTL CPU SPURIOUS TRAP TO 4 HANDLER 
EPI tititeiititittitiittitititiiiitiiitititiiiiiir iii rire) 
METI it iii tii t iii i iii i iit tii iii iii titi it tiie i rrr, 


**THIS ROUTINE REPORTS UNEXPECTED CPU TRAPS TO VECTOR 4. 
** 








CKFPBAO FP11F FLTG PNT 
CPU SPURIOUS TRAP TO 4 HANDLER 


584” 036712 
5848 036716 


5849 036720 
5850 036722 


5888 


5889 

5890 936766 
5891 036774 
5892 037002 





N11 
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5851 036724 
5852 


5 

5883 036754 
5884 

5885 036762 
5886 036764 


Ss 








CPSPUR: MOV (SP) ,@#$TMP2 ; SAVE PC OF TRAP. 
CMP (SP)+, (SP) + 
1$: ERROR +250 
RSE TUP :GO INITIALIZE THE FPS AND STACK; AND 


SEE IF THE USER HAS EXPRESSED 

; THE DESIRE TO CHANGE THE SOF TWARE 
VIRTUAL CONSOLE SWITCH REGISTER (HAS 
; THE USER TYPED CONTROL G?). 


JMP a4$EOP 





-SBTTL CPU SPURIOUS TRAP TO 10 HANDLER 


FRA REA E RARER EEKEKEEERR EKER EERE 
:: RARE EERAEEAEEERERERAEARE RET ERAEEEEEE REE EREERKERE EE 


:STHIS ROUTINE REPORTS UNEXPECTED CPU TRAPS TO VECTOR 10. 


iPTwo: MOV (SP) ,a#STMP2 7SAVE PC OF TRAP. 
CMP (SP)+, (SP)+ 
1$: ERROR +251 
RSETUP 3GO INITIALIZE THE FPS AND STACK; AND 


;SEE IF THE USER HAS EXPRESSED 
THE DESIRE TO CHANGE THE SOF TWARE 
:VIRTUAL CONSOLE SWITCH REGISTER (HAS 
THE USER TYPED CONTROL G?). 

JMP a4$EOP 


-SBTTL SET LOOP ON ERROR ADDRESS ROUTINE 
SIRIUS IIIOIUIUIOISISIIIISIOIOIOIDIOIDISIOIIOIOIUIOIOIOIOIDISISIUIOIOIOIOIOIOITIIIOIIOIUIUIOI II IOI I IIo 


ele tcl la aaa cata ahaa mamta. 


‘PER: art (SP) ,@#S$LPERR 


-SBTTL FLAG RESET AND CONSOLE TEST ROUTINE 


CUO IOIOIS III IIIOIDIUIOIDIIIOIDISIOIIISIIOIOIOIOIUIUIOIDIOIOIOIIOIOIIIOII IOI IUD IOIDIDIDIDI IOI ot 
JAA OCI IIOISIIOIDIIIOIOIIOIOIOIIIOIUIOIUIOIOIOIOIOIDIOIOIOIDIOIOIDIOIOIOIIOINIIUIDIDIIOIDI OID IDI 
: THIS ROUTINE WILL BE CALLED AT THE END OF EACH TEST TO 
>*RESET THE STACK, CLEAR THE FPS a SEE IF THE USER HAS TYPED 
:* CONTROL G ON THE TERMINAL. IF THE USER HAS TYPED CONTROL G AND 
;*THERE IS NO PHYSICAL CONSOLE SWITCH REGISTER THEN THE CONTENTS 
:*OF THE SOFTWARE SWITCH REGISTER WILL BE TYPED IN OCTAL ON THE 
>*TELETYPE AND THE USER CAN MODIFY IT. 


'* 
»RSET: CMP @ASWR 4177570 ;SEE IF THERE IS A PHYSICAL 
; CONSOLE SWITCH REGISTER. 
BNE 1$ CH IF NO. 
CKSWR S OTHERWISE TYPE THE CONTENTS 


:OF THE PROGRAM VIRTUAL SWITCH REGISTER 


[AND GIVE THE USER A CHANCE TO 
sMODIFY IT. 
1$: MOV #FPSPUR , @AF PVE CT 
MOV #CPSPUR ,@#ERRVECT 
MOV #CPTWO,a#10 
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FLAG RESET AND CONSOLE TEST ROUTINE 











5903 

5904 037024 124 
5905 037042 105 
5906 037065 107 


eal cal wel 

WN 

NOM 
— 
pS] 
Oo 





MSA3: 
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5893 037010 011600 MOV (SP) RO 
5894 037012 012706 001100 MCV MSTACK,SP 
5895 037016 005004 CLR RS 

5896 037020 170104 LDFPS RG 

5897 037022 000110 JMP (RO) 

5898 

5899 

5900 .NLIST BEX 


5902 ; THESE ARE SPECIAL MESSAGES: 


101 MSA1: -ASC1Z 
MSA2: -ASCIZ 
ASCIZ 


"TRAPPED AT: '<TAB><TAB> 
"EXPECTED TRAP AT: '<TAB> 
"GOT RO: '<TARB><TAB> 


; SAVE RETURN ADDRESS. 
RESET THE STACK POINTER. 
; CLEAR THE FPS. 


RETURN. 








CKFPBAO FP11F FLTG PNT PRT B 


LAG RESET AND CONSOLE TEST ROUTINE 


5908 037077 105 130 
5909 037115 107 117 
5910 037130 105 130 
5911 
5912 
5913 037150 200 120 
5914 037215 011 000 
5915 037217 040 040 
5916 037222 101 103 
5917 037240 106 123 
5918 037260 101 103 
5919 037307 101 103 
5920 037335 105 130 
5921 037357 107 117 
5922 037375 106 122 
5923 037421 111 116 
5924 037443 105 130 
5925 037467 105 130 
5926 037512 114 117 
927 037530 122 105 
5928 037544 105 130 

037564 104 101 
5930 037610 104 101 
5931 037626 107 117 
5932 037643 105 130 
5933 037665 200 124 
5934 
5935 
5936 
5937 037724 106 120 
5938 037756 101 103 
5942 040012 

040012 106 120 
5943 040036 050 102 
5944 040117 

040117 106 120 
5945 040143 050 102 
5946 040224 

040224 106 120 
5947 040250 050 102 
5948 040331 

040331 106 120 
5949 040355 050 102 
5950 040436 

0404 36 106 120 
5951 040462 050 102 
5952 040543 

040543 106 120 
5953 040567 050 102 
5954 040650 

040650 106 120 
5955 040674 050 102 
5956 040757 

040757 106 120 
5957 041003 050 102 
5958 041066 

041066 106 120 


MM MM NPM NM NM NM 
VW UW UW UWUIW YW WI 


ail 
Nm 
wm 


MACRO M1111 18-SEP-79 
120 MSA: -ASCIZ 
124 MSAS: -ASCIZ 
120 MSA6: -ASCIZ 
117 POWERM: .ASCIZ 

STAB: ASCIZ 
000 SPACE: .ASCIZ 
040 MS1: ASCIZ 
122 MS2: ASCIZ 
060 MS3: ASCIZ 
060 MS4: -ASCIZ 
120 MSS: SC1Z 
124 MS6: -ASCIZ 
101 MS7: -ASCIZ 
124 ™S10: -ASCIZ 
120 MS11: -ASCIZ 
120 MS12: -ASC1Z 
101 MS37: -ASCIZ 
101 MS40: -ASCIZ 
120 MS415: .ASCIZ 
124 MS41: -ASCIZ 
124 MS42: -ASCIZ 
124 MS43:  -ASCIZ 
120 MS44: -ASCIZ 
105 CORMES: .ASCIZ 


C1 
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"EXPECTED RO: '<TAB> 
"GOT ACO: '<TAB><TAB> 
"EXPECTED ACO: '<TAB><TAB> 


— FAILURE. PROGRAM RESTARTING. *<CRLF> 
< > 


"AC OPERAND: '<TAB><TAB> 
"FSRC OPERAND: '<TAB><TAB> 
"ACO BEFORE EXECUTION: '<TAB> 
"ACO AFTER EXECUTION: '<TAB> 
"EXPECTED RESULT: '<TAB> 

"GOT RESULT: '<TAB><TAB> 
"FRACTIONAL RESULT: ‘<TAS> 


‘INTEGER RESULT: ‘<TAB> 

‘ CTED FRACTION: '<TAB> 
"EXPECTED INTEGER: *<TAB> 
"LOADED DATA: ° 

"READ D Feo aa 

"EXPECTED - 

"DATA IN RO) “ESRC: , 
*DATA_IN ACO: 

*GOT vats yt . 


"EXPECTED R 


ESULT: 
<CRLF>'TEST 32. TESTING INTERRUPTS. *<CRLF > 


; THESE ARE ERROR MESSAGES: 
EM1: ASCIZ 


EM2: 
EM3: 


EMG: 


EMS: 


EM6: 


EM7: 


EM10: 


EM11: 


EM12: 


EM13: 


“ASCIZ 


-ASCII 
-ASCIZ 


-ASCII 
-ASCIZ 


“ASCII 
“ASCIZ 


ASCII’ 


-ASCIZ 


-ASCII 
-ASCIZ 


-ASCII 
-ASCIZ 


-ASCII 
-ASCIZ 


-ASCII 
-ASCIZ 


ASCII 


"FPS BAD AFTER CMPD (R),A.° 
"ACO MODIFIED BY CMPD (R),A." 


"FPS BAD AFTER CMPD. '<CRLF> 


"(BUT ENBT) STATE 225 WENT TO 475 INSTEAD OF 075." 


"FPS BAD AFTER CMPD. '<CRLF> 


‘(BUT ENBT) STATE 225 WENT TO 075 INSTEAD OF 475.' 


"FPS BAD AFTER CMPD. '<CRLF> 


‘(BUT ENBT) STATE 035 WENT TO 075 INSTEAD OF 475.° 


"FPS BAD AFTER CMPD. '<CRLF> 


"(BUT ENBT) STATE 035 WENT TO 475 INSTEAD OF 075.' 


"FPS BAD AFTER CMPD. '<CRLF> 


"(BUT ENBT Y8) STATE 777 SHOULD HAVE GONE TO 007." 


"FPS BAD AFTER CMPD. '<CRLF> 


"(BUT ENBT Y8) STATE 777 SHOULD HAVE GONE TO 40S." 


"FPS BAD AFTER CMPD. '<CRLF> 


"(BUT NBIT ZBIT) STATE 456 SHOULD HAVE GONE TO 010." 


"FPS BAD AFTER CMPD. '<CRLF> 


‘(BUT NBIT ZBIT) STATE 456 SHOULD HAVE GONE 


‘FPS BAD AFTER CMPD. '<CRLF> 


TO 746." 


SEQ 0145 


D1 
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FLAG RESET AND CONSOLE TEST ROUTINE SEQ 0146 


5959 041112 104 111 104 -ASCIZ /DIDN'T TAKE THE PATH: STATE 456, TO 012, TO 363 TO 120./ 
5960 041202 EM14: 
041202 106 120 123 «ASCII ‘FPS BAD AFTER CMPD. '<CRLF> 
rand Br iéte 050 102 125 ems -ASCIZ ‘(BUT XNBT XZBT) STATE 363 WENT TO 140 INSTEAD OF 100.° 
041314 106 120 123 -ASCII ‘FPS BAD AFTER CMPD. '<CRLF 
5963 041340 050 102 125 -ASCIZ ‘(BUT XNBT XZBT) STATE 363. WENT TO 100 INSTEAD OF 140.' 
5964 041426 EM16 
041426 106 120 123 -ASCII ‘FPS BAD AFTER CMPD. '<CRLF> 
5965 041452 104 111 104 eASCIZ /DIDN'T TAKE THE PATH: STATE 777, TO 407./ 
041523 104 111 126 EM17: .ASCIZ ‘DIVD (R),A_ TRAPPED TO 244. FSRC=0 AND FID=1." 
967 041600 106 120 123 EM20: -ASCIZ ‘FPS BAD AFTER DIVD (R),A. 
5968 041632 106 105 103 EM21: .ASCIZ ‘FEC BAD AFTER DIVD (R),A 
041 104 171 126 EM22: ASCIZ /DIVD (R),A DIDN'T TRAP” To “266. FSRC=0 AND FID=0./ 
5970 041745 104 111 126 EM23: .ASCIZ ‘DIVF (R),A FAILED.’ 
5971 041770 106 120 123 EM32: C1Z ‘FPS BAD AFTER DIVF (R),A.* 
5975 042022 EM24 
042022 104 111 126 -ASCII ‘DIVF (R),A FAILED.' 
5976 042044 050 102 125 -ASCIZ ‘(BUT Y61) WENT TO STATE 006 INSTEAD OF 206." 
5977 042120 EM25 
042120 104 111 126 ASCII ‘DIVF (R),A FAILED.' 
5978 042142 130 117 122 -ASCIZ ‘XOR OF SIGN BITS FAILED STATE 470.' 
5979 042205 EM26: 
042205 104 111 126 ASCII ‘DIVF (R),A FAILED. 
5980 042227 050 102 125 ASCIZ ‘(BUT Y61) WENT TO STATE 206 INSTEAD OF 006." 
5981 042120 EM27=EM25 
5982 042303 EM30 
042303 104 111 126 ASCII '‘DIVF (R),A FAILED.’ 
5983 042325 124 122 125 -ASCIZ ‘TRUNCATION ERROR. FT=1.' 
5984 042355 EM31: 
104 111 126 ASCII '‘DIVF (R),A FAILED.' 
5985 042377 122 117 125 -ASCIZ ‘ROUND ERROR. FT=0.' 
5986 042422 104 111 126 EM33: .ASCIZ ‘DIVD (R),A FAILED.’ 
5987 042445 106 120 123 EM34: .ASCIZ ‘FPS BAD AFTER DIVD (R),A." 
5991 042477 EM35: 
042477 104 111 126 -ASCII 'DIVD (R),A FAILED. '<CRLF> 
5992 042522 124 122 125 “ASCIZ "TRUNCATION ERROR. FT=1. 
5993 042552 EM36: 
042552 104 111 126 -ASCII ‘DIVD (R).A eine "<CRLF > 
5994 042575 122 117 125 -ASCIZ ‘ROUND ERROR. FT=0.' 
5995 042620 115 125 114 EM37:  .ASCIZ ‘MULF (R),A FAILED. * 
042643 106 120 123 E—M40: .ASCIZ ‘FPS BAD AFTER MULF (R),A." 
6000 042675 EM41: 
0426 115 125 114 -ASCII "MULF (R).A FAILED. '<CRLF> 
6001 042720 123 111 107 -ASCIZ ‘SIGN BIT BAD STATE 511. 
6002 042750 EM42: 
042 115 125 114 ASCII "MULF (R),A FAILED. *<CRLF> 
6003 042773 116 117 122 -ASCII “NORMAL 1 ZATION FAILED. *<CRLF> 
0430 050 102 125 -ASCIZ ‘(BUT Y62) STATE 252 WENT TO 044 INSTEAD OF 444." 
6005 043101 EM43: 
043101 115 125 114 -ASCII *MULF (R),.A FAILED. gt 
04312 116 117 122 “ASCII "NORMALIZATION FAILED. '<C 
6007 oR RS 050 102 125 anes -ASCIZ ‘(BUT Y62) STATE 252 went To. 444 INSTEAD OF 044." 
0432 115 125 114 ASCII] *MULF (R),A FAILED. '<CRLF> 
6009 043255 122 117 125 “ASCIZ "ROUND ERROR. FT=0." 
6010 043300 EM45 
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043300 115 125 114 -ASCII 
6011 043323 124 122 125 -ASCIZ 
6012 043353 106 120 123 EM46:  .ASCIZ 
6016 043405 115 125 114 EM2466: .ASCIZ 
6017 043430 EM47: 

043430 115 125 114 -ASCII 
6018 043453 102 101 104 -ASCII 
6019 043522 290 125 123 -ASCIZ 
6020 043564 EMSO 

043564 115 125 114 -ASCII 
6021 043607 124 122 125 -ASCIZ 
6022 043637 EM51 

043637 115 125 114 -ASCII 
6023 043662 122 117 125 -ASCIZ 
6024 043705 EMS2: 

04371 115 125 114 -ASCII 
6025 043730 102 101 104 -ASCIZ 
6026 043775 106 120 123. EM111: .ASCIZ 
6027 044052 106 120 123. EM112: .ASCIZ 
6028 0441 EM113: 

04413 115 125 114 -ASCII 
6029 044153 105 130 120 -ASCIZ 

30 044 i EM114 

0442 115 125 114 ASCII 
6031 044231 105 130 120 -ASCIZ 
6032 044265 115 125 114 E—M115: .ASCIZ 

044343 115 125 114 €M116: .ASCIZ 
6040 044422 EM117: 

044422 115 125 114 -ASCII 
6041 044500 050 12 125 -ASCIZ 
6042 044560 EM120 

0445 115 125 114 -ASCII 
6043 044636 050 102 125 -ASCIZ 
6044 044716 EM121 

0447 115 125 114 -ASCII 
6045 044773 050 102 125 -ASCIZ 
6046 045053 EM122 

0450 115 125 114 -ASCII 
6047 045130 050 102 125 -ASCIZ 
6048 045210 106 120 123 EM123: .ASCIZ 

045266 106 120 123 EM124: .ASCIZ 
6050 045345 EM125: 

045345 115 125 114 -ASCII 
6051 045370 105 130 120 -ASCIZ 
6052 045423 EM126 

045423 115 125 114 -ASCII 
6053 045446 105 130 120 -ASCIZ 
6054 045502 115 125 114 €M127: .ASCIZ 
6055 045560 115 125 114 EM130: .ASCIZ 
6062 045637 EM131: 

0456 115 125 114 -ASCII 
6063 045715 050 102 125 -ASCIZ 
6064 045775 EM132 

0457 115 125 114 -ASCII 
6065 046020 105 130 129 -ASCII 

04 200 050 102 -ASCIZ 


6066 046053 
6067 046133 EM133: 
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"MULF (R),A FAILED. '<CRLF> 
"TRUNCATION ERROR. FT=1.' 
"FPS BAD AFTER MULD (R),A." 
"MULD (R),A FAILED." 


*"MULD (R),A FAILED. '<CRLF> 
"BAD CONSTANT USED IN THE MUL ALGORITHM." 
<CRLF>"USED 24 INSTEAD OF 56 STATE 020." 


*"MULD (R),A FAILED. *<CRLF > 
"TRUNCATION ERROR. FT=1. 


*"MULD (R),A FAILED. *<CRLF > 
"ROUND ERROR. FT=0.' 


"MULD (R),A FAILED. *<CRLF> 

"BAD CONSTANT USED IN ROUNDING, FT=0.' 

"FPS BAD AFTER MULF (R),A. EXPECTED OVERFLOW. ' 
"FPS BAD AFTER MULF (R),A. EXPECTED UNDERFLOW.' 


"MULF (R),A FAILED. *<CRLF> 
"EXPECTING CVERFLOW, FIV=0.' 


*"MULF (R),A FAILED. *<CRLF> 

"EXPECTING UNDERFLOW, FIU=0." 

"MULF (R),A TRAPPED TO 244 ON OVERFLOW. FIV=0." 
*"MULF (R),A TRAPPED TO 244 ON UNDERFLOW. FIU=0.' 


*"MULF (R),A TRAPPED TO 244 ON UNDERFLOW. FIU=0." 
‘(BUT FIU) STATE 331 WENT TO 155 INSTEAD OF 115." 


*MULF (R),A TRAPPED TO 244 ON UNDERFLOW. FIU=0.' 
‘(BUT FIU) STATE 137 WENT TO 155 INSTEAD OF 115." 


"MULF (R),A TRAPPED TO 244 ON OVERFLOW. FIV=0.' 
* (BUT rvs STATE 333 WENT TO 136 INSTEAD OF 116." 


"MULF (R),A TRAPPED TO 244 ON OVERFLOW. FIV=0.' 
"(BUT FIV) STATE 133 WENT TO 136 INSTEAD OF 116.° 
"FPS BAD AFTER MULD (R),A. EXPECTING OVERFLOW." 
"FPS BAD AFTER MULD (R),A. EXPECTING UNDERFLOW.' 


*"MULD (R),A FAILED. *<CRLF> 
"EXPECTING OVERFLOW, FIV=0.' 


*MULD (R),A eae *<CRLF > 

"EXPECTING UNDERFLOW, FIU=0.° 

"MULD (R),A TRAPPED TO 244 ON OVERFLOW. FIV=0." 
"MULD (R),A TRAPPED TO 244 ON UNDERFLOW. FIU=0." 


*MULF (R),A TRAPPED TO 244 ON UNDERFLOW. FIU=0.° 
‘(BUT FIU) STATE 331 WENT TO 155 INSTEAD OF 115.° 


*MULD (R),A FAILED. yey 
"EXPECTING UNDERFLOW, F IU=0." 
<CRLF>'(BUT FD) STATE 115 WENT TO 424 INSTEAD OF 425." 


SEQ 0147 
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046133 115 125 114 ASCII ‘'MULF (R),A TRAPPED 10 244 ON UNDERFLOW. FIU=0.° 
6068 046211 050 102 125 TASCIZ ‘(BUT FIUS STATE 137 WENT TO 155 INSTEAD OF 115.° 
6069 046271 EM134 
046271 115 125 114 ASCII ‘MULD (R),A TRAPPED TO 244 ON OVERFLOW. FIV=0.' 
6070 046346 050 102 125 “ASCIZ ‘(BUT FIV) STATE 333 WENT TO 136 INSTEAD OF 116.° 
6071 046426 EM135 
046426 115 125 114 ASCII {MULD (RDA FAILED. *<CRLF> 
6072 046451 105 130 120 ASCII ‘EXPECTING OVERFLOW, FIV=0.' 
6073 046503 200 050 102 ASCIZ <CRLF>'(BUT FD) STATE 116 WENT TO 424 INSTEAD OF 425.° 
6074 046563 EM136 
046563 115 125 114 ASCII ‘MULD (R),A TRAPPED TO 244 ON OVERFLOW. FIV=0.° 
6075 046640 050 102 125 TASCIZ ‘(BUT FIV) STATE 133 WENT TO 136 INSTEAD OF 116. 
6076 046720 105 103 €M137: ‘[ASCIZ ‘FEC BAD AFTER MULF (R),A. EXPECTING OVERFLOW, FEC=10.° 
6077 047006 106 105 103 M140: [ASCIZ ‘FEC BAD AFTER MULF (R).A. EXPECTING UNDERFLOW, FEC=12.° 
6078 043775 EM141=EMi 11 
6079 044052 EM142=EM112 
6080 047075 EM143: 
047075 115 125 114 ASCII *MULF (R),A FAILED. '<CRLF> 
6081 047120 105 130 120 TASCIZ "EXPECTING OVERFLOW, FIV=1.° 
6082 047153 EM144: 
04715 115 125 114 ASCII ‘MULF (R),A FAILED. '<CRLF> 
6083 047176 105 130 120 “ASCIZ "EXPECTING UNDERFLOW, FIU=1.° 
6090 047232 EM145: 
047232 115 125 114 ASCII 'MULF (R),A FAILED TO TRAP TO 244 ON UNDERFLOW, FIU=1.' 
6091 047317. 050 192 125 “ASCIZ ‘(BUT FIUS STATE 331 WENT TO 115 INSTEAD OF 155.' 
6092 047377 EM146: 
047377 115 125 114 ASCII 'MULF (R),A FAILED TO TRAP TO 244 ON UNDERFLOW, FIU=1.' 
6093 047464 050 102 125 “ASCIZ ‘(BUT FIUS STATE 137 WENT TO 115 INSTEAD OF 155." 
6094 047544 EM147: 
047544 115 125 114 “ASCII 'MULF (R),A FAILED TO TRAP TO 244 ON OVERFLOW. FIV=1.' 
6095 047630 050 102 125 ASCIZ ‘(BUT FIVS STATE 333 WENT TO 116 INSTEAD OF 136." 
60% 047710 M150: 
047710 115 125 114 “ASCII 'MULF (R),A FAILED TO TRAP TO 244 ON OVERFLOW. FIV=1." 
6097 047774 050 102 125 "ASCIZ ‘(BUT FIV) STATE 133 WENT TO 116 INSTEAD OF A36.° 
6098 050054 106 105 103 €M151: [ASCIZ ‘FEC BAD AFTER MULD (R),A. EXPECTING OVERFLOW, FEC=10." 
609S 050142 106 105 103 €M152: “°ASCIZ ‘FEC BAD AFTER MULD (R).A. EXPECTING UNDERFLOW, FEC=12. 
045210 EM153=EM123 
6101 045266 EM154=EM124 
6102 050231 EM155: 
050231 115 125 114 ASCII *MULD (R),A FAILED. "<CRLF> 
6103 050254 105 130 120 “ASCIZ "EXPECTING OVERFLOW, FIV=1." 
6104 050307 EM156: 
050307 115 125 114 ASCII "MULD (R),A FAILED. *<CRLF> 
6105 050332 105 130 120 "ASCIZ "EXPECTING UNDERFLOW, FIU=1." 
6112 050366 EM157: 
050366 115 125 114 ASCII 'MULD (R),A FAILED TO TRAP TO 244 ON UNDERFLOW. FIU=1." 
6113 050453 050 102 125 "ASCIZ "(BUT FIUS STATE 331 WENT TO 115 INSTEAD OF 155." 
6114 050533 EM160: 
050533 115 125 114 ASCII {MULD (RDA FAILED." <CRLF> 
6115 050556 105 130 120 “ASCII ‘EXPECTING UNDERF LOW, FIU=1.° 
6116 050611 200 ~—-080 102 "ASCIZ <CRLFD"(BUT FD) STATE 155 WENT TO 426 INSTEAD OF 427.° 
6117 050671 - EM161: 
050671 115 125 114 ASCII 'MULD (R),A FAILED TO TRAP TO 244 ON UNDERFLOW. FIU=1." 
6118 050756 050 102 125 "ASCIZ ‘(BUT FIUS STATE 137 WENT TO 115 INSTEAD OF 155.° 
6119 051036 EM162: 
051036 115 125 114 ASCII 'MULD (R),A FAILED TO TRAP TO 244 ON OVERFLOW. FiV=1." 
6120 051122 ~—050 102 125 "ASCIZ. ‘(BUT FIV) STATE 333 WENT TO 116 INSTEAD OF 136." 
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6121 051202 EM163: 
051202 115 125 114 eASCII ‘MULD (R),A FAILED. Me re 
6122 051225 105 130 120 -ASCII "EXPECTING OVERFLOW, FIV=1.° 
6123 051257 200 050 102 eASCIZ <CRLF>* (BUT FD) STATE. 700 WENT TO 426 INSTEAD OF 427." 
6124 051337 EM164 
051337 115 125 114 -ASCII = "MULD (R).A FAILED TO TRAP TO 244 ON OVERFLOW. FIV= i 
6125 051423 050 102 125 ASCIZ ‘(BUT FIV) STATE 133 WENT TO 116 INSTEAD OF 136." 
6126 051503 106 120 123 EM55:  .ASCIZ ‘FPS BAD AFTER MODF (R) A. 
6127 051535 115 117 104 EM53: ASCIZ '‘MODF (R),A FRACTION BAD. 
6128 051566 115 117 104 EMS4: ASCIZ ‘MODF (R),A INTEGER BAD. 
6135 051616 EMS6: 
051616 115 117 104 -ASCII ‘MODF (R),A FRACTION BAD. '<CRiF> 
6136 051647 101 103 060 -ASCIZ ‘ACO DID NOT GET O IN STATE 424." 
6137 051707 EMS7 
051707 115 117 104 ASCII ‘MODF (R),A_ INTEGER BAD. '<CRLF> 
6138 051737 101 103 061 ASCIZ ‘AC1 DID NOT GET 0 IN STATE 142." 
6139 051777 EM60: 
051777 115 117 104 -ASCII ‘MODF (R),A_ INTEGER BAD. *<CRLF 
6140 052027 101 103 061 “ASCIZ 'AC1 DID NOT GET THE INTEGER IN STATE 134.° 
6141 052101 EM61: 
052101 115 117 104 «ASCII ‘MODF (R),A FRACTION BAD. Pn 
6142 052132 101 040 102 “ASCII ‘A BAD CONSTANT WAS USED (NOT 24) IN STATE 046. 
6143 052210 200 117 122 -ASCIZ <CRLF>"OR (BUT NBIT) STATE 525 WENT TO 050 INSTEAD OF 150.° 
6144 Basses EM62: 
052275 15 «= 117 104 -ASCII ‘MODF (R),A FRACTION BAD. ‘<CRLF> 
6145 052326 101 040 102 -ASCII ‘A BAD CONSTANT WAS USED (NOT 24) IN STATE 046.° 
6146 052404 200 117 i eASCIZ <CRLF>*OR (BUT NBIT) STATE 525 WENT TO 150 INSTEAD OF 050." 
6147 052471 > EM63: 
052471 115 117 104 ASCII 'MODF (R),A FRACTION BAD. '<CRLF 
6148 052522 050 102 125 “ASCIZ ‘(BUT ZBT) STATE 532 WENT TC 10. INSTEAD OF 122.° 
6149 052602 EM64 : 
052602 115 117 104 -ASCII ‘MODF (R),A FRACTION BAD. ‘*<CRLF> 
6150 052633 050 102 125 -ASCIZ ‘(BUT ENBT EZBT) STATE 041 WENT TO 046 INSTEAD OF 246." 
6151 052721 EM6S: 
052721 115 117 104 ASCII ‘MODF (R),A FRACTION BAD. *<CRLF> 
6152 052752 056 102 125 -ASCIZ ‘(BUT FT) STATE 126 SHOULD HAVE GONE TO 1335. FT=0." 
6153 053034 EM66: 
053034 115 117 104 -ASCII ‘MODF (R),A FRACTION BAD. *<CRLF> 
6154 053065 123 111 107 -ASCIZ ‘SIGN BIT BAD." 
6155 053103 [M67: 
053103 115 117 104 -ASCII *MODF (R),A INTEGER BAD. *<CRLF > 
6156 953133 123 113 107 -ASCIZ ‘SIGN BIT BAD IN STATE 733." 
6157 053166 115 117 104 EM70: ASCIZ_ ‘MODD ion? r pone gh, _ 
6158 053217 115 117 104 EM71: ASCIZ ‘MODD (R),A_INTEGER BA 
6159 053247 106 720 1235 EM72: _.ASCIZ ‘FPS BAD AFTER MODD (RD _ : 
6160 053247 EM73=EM72 
6167 053301 EM7<: 
053301 115 117 104 -ASCII 'MODD (R),A_INTEGER BAD. ‘<CRLF > 
6168 053331 050 102 125 -ASCIZ ‘(BUT FD) STATE 231 WENT TO 142 INSTEAD OF 143.' 
6169 053410 EM75: 
053410 115 117 104 -ASCII ‘MODD (R),A FRACTION BAD. *<CRLF> 
6170 053441 101 103 060 ASCIZ ‘ACO GETS 0 IN STATE 425 FAILED." 
6171 053501 EM76: 
053501 115 117 104 -ASCII ‘MODD (R),A INTEGER BAD. ‘<CRLF> 
6172 053531 101 103 061 -ASCIZ ‘AC1 GETS 0 IN STATE 143 FAILED.* 
6173 053571 EM77: 
053571 115 117 104 ASCII ‘MODD (R),A FRACTION BAD. ‘<CRLF> 
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6174 053622 050 102 -ASCIZ ‘(BUT FD) STATE 526 WENT TO 134 INSTEAD OF 135.° 
6175 053701 EM100: 
053701 -ASCII ‘MODD (R),A INTEGER BAD. '<CRLF> 
6176 053731 -ASCIZ ‘SIGN BIT BAD IN STATE 526." 
6177 053764 EM101: 


115 117 1 
123 14 107 

053764 115 117 104 -ASCII ‘MODD (R),A FRACTION BAD. '<CRLF> 
6178 054015 101 040 102 -ASCI] ‘A BAD CONSTANT WAS USED (NOT 56) IN STATE 046,' 
6179 054073 200 117 122 -ASCIZ <CRLF>'OR (BUT NBIT) STATE 525 WENT TO 050 INSTEAD OF 150." 
6180 054160 EM102: 

054160 115 117 104 «ASCII ‘'MODD (R),A FRACTION BAD. ‘<CRLF> 
6181 054211 101 040 102 -ASCII ‘A BAD CONSTANT WAS USED (NOT 56) IN STATE 046,' 
6182 054267 200 117 122 -ASCIZ <CRLF>"OR (BUT NBIT) STATE 525 WENT TO 150 INSTEAD OF 050." 
6183 054354 EM103: 

054354 115 117 104 «ASCII ‘MODD (R),A FRACTION BAD. ‘<CRLF> 
6184 054405 050 102 125 -ASCIZ ‘(BUT ZBIT) STATE 532 WENT TO 122 INSTEAD OF 102.' 
6185 054466 EM104: 

054466 115 117 104 -ASCII ‘MODD (R),A_ INTEGER BAD. '<CRLF> 
6186 054516 123 105 124 -ASCII "SET INTEGER IN AC1 FAILED,' 
6187 054550 200 117 122 “ASCIZ <CRLF>'OR (BUT FD) STATE 733 WENT TO 156 INSTEAD OF 157." 
6188 054633 EM105: 

054633 115 117 104 -ASCII ‘MODD (R),A_INTEGER BAD. ‘<CRLF> 
6189 054663 050 102 125 -ASCIZ ‘(BUT FD) STATE 122 WENT TO 424 INSTEAD OF 425." 
6196 054742 EM106: 

054742 115 117 104 -ASCII ‘MODD (R),A_ INTEGER BAD. *<CRLF> 
6191 054772 050 102 125 -ASCIZ ‘(BUT FD) STATE 246 WENT TO 126 INSTEAD OF 127." 
6192 055051 EM107: 

055051 115 117 104 -ASCII '‘MODD (R),A_INTEGER BAD. '<CRLF> 
6193 055101 050 102 125 -ASCIZ ‘(BUT FD) STATE 446 WENT TO 126 INSTEAD OF 127." 
6194 055160 EM110: 

055160 115 Ti7y * TO -ASCII ‘MODD (R),A FRACTION BAD. '<CRLF> 
6195 055211 050 102 125 -ASCIZ ‘(BUT FT) STATE 127 WENT TO 313 INSTEAD OF 113.'° 
6208 055270 EM165: 

055270 115 117 104 ASCII /MODF (R),A FRACTION BAD. RESULT OVER OR UNDER FLOW. / 
6209 055353 000 -BYTE 0 
6210 055354 EM166: 

055354 115 117 104 ASCII /MODF (R),A INTEGER BAD. RESULT OVER OR UNDER FLOW. / 

0554 000 -BYTE 0O 
6212 055437 EM167: 

055 106 120 123 ASCII] /FPS BAD AFTER MODF (R),A./ 
6213 055470 000 -BYTE 0 
6214 055471 EM170: 

55471 105 103 ASCII /FEC BAD AFTER MODF (R),A./ 

6215 055522 *05 130 120 -ASCIZ ‘EXPECTING UNDERFLOW, FEC=12.' 
6216 055557 EM171: 

055557 115 117 104 -ASCII /MODF (R),A INTEGER BAD. RESULT OVER OR UNDER FLOW./ 
6217 055641 200 101 103 -ASCIZ <CRLF>'AC1 GETS 0 IN STATE 126 FAILED." 
6218 055702 EM172: 

05570. : 105 103 ASCII] /FEC BAD AFTER MODF (R),A./ 
6219 055733 105 130 120 -ASCIZ ‘EXPECTING OVERFLOW, FEC=10." 
6220 055767 EM173: 

055 115 117 104 ASCII] /MODF (R),A INTEGER BAD. RESULT OVER OR UNDER FLOW. / 
6221 056051 200 050 102 eASCIZ <CRLF>"(BUT FIV FD) STATE 520 WENT TO 142 INSTEAD OF 162." 
6222 056135 EM174: 

056135 115 117 104 - -ASCII] /MODF (R),A INTEGER BAD. RESULT OVER OR UNDER FLOW./ 
6223 056217 200 050 102 ASCIZ <CRLF>*(BUT FIV FD) STATE 520 WENT TO 162 INSTEAD OF 142.' 
6224 056393 EM175: 

056303 115 117 104 ASCII /MODF (R),A INTEGER BAD, RESULT OVER OR UNDER FLOW. / 

| 
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6225 056565 
6226 056415 
056415 
6227 056500 
6228 056501 
056501 
6229 056563 
6230 056564 
056564 
6231 056615 
6232 056616 
9056616 


6233 056647 
6234 056705 


056705 
6235 056767 
6236 057047 
057047 
6237 057131 
6238 057211 
057211 
6239 057242 
6240 057277 
057277 
6241 057361 
6242 057445 
057445 


6243 057527 
6244 


6245 
6338 057613 
057613 
6339 057655 
057655 
6340 057717 
6341 057772 
6342 060027 
6367 060063 
060063 


200 


115 
0C0 


115 
000 
106 
000 


106 
200 


175 
200 


115 
200 


106 
200 


115 
200 


123 
117 


-—d —2 2 


— 2 4 
MANO MWD M—MwO Mw—NwO 
MeSH MRS HK MHKSHKS MHLHS AnNLO 


~_— = = _—_ 3 = 


MACRO M1111 18=SEP=79 


111 
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-ASCIZ 


-ASCII 
-BYTE 


-ASCII 
-BYTE 


-ASCII 
-BYTE 


—M176 

EM177: 
EMz00: 
EM201: 
EM202: 
EM203: 
EM204: 
EM205: 


EM206: 


EM207: 
EM210: 
EM211: _ASCII 
EM212: 
EM213: 


EM214: 


EM215 
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<CRLF>"SIGN BAD IN STATE 517." 
— (R),A FRACTION BAD. RESULT OVER OR UNDER FLOW./ 


_— (R),A INTEGER BAD. RESULT OVER OR UNDER FLOW./ 


on BAD AFTER MODD (R),A./ 


/FEC BAD AFTER MODD (R),A./ 


<CRLF>"EXPECTING UNDERFLOW, FEC=12.° 


/MODD (R),A INTEGER BAL. RESULT OVER OR UNDER F 
<CRLF>*(BUT FD) STATE 241 WENT TO 126 INSTEAD OF O57, : 


/MODD (R),A INTEGER BAD. RESULT OVER OR UNDER FLOW. / 
<CRLF>' (BUT FD) STATE 047 WENT TO 126 INSTEAD OF 127." 


/FEC BAD AFTER MODD (R),A./ 


<CRLF>"EXPECTING OVERFLOW, FEC=10.' 


/MODD (R),A INTEGER BAD. RESULT OVER OR UNDER FLOW./ 
<CRLF>" (BUT FIV FD) STATE 520 WENT TO 162 INSTEAD OF 163." 


/MODD (R),A INTEGER BAD. RESULT OVER OR UNDER FLOW. / 
<CRLF>* (BUT FIV FD) STATE 520 WENT TO 162 INSTEAD OF 143." 


/ADDD (R),A PRODUCED A BAD RESULT./ 


/THE FPS WAS BAD AFTER ADDD (R),A./ 

*ADDD (R),A FAILED IN THE ROUND TRUNK FLOWS. 
<CRLF>"WENT FROM STATE 663 TO 313, °<CRLF> 
"INSTEAD OF FROM 663 TO 353.° 


*ADDD (R) A FAILED IN THE ROUND\TRUNK FLOWS. 
<CRLF>' | FPS WAS BAD. ‘<CRLF > 

"DID NOT TAKE THE PATH: '<CRLF> 

/FROM STATE 664. TO 505, TO 251./ 


*ADDD (R),A FAILED IN THE ROUND\TRUNK FLOWS. 
<CRLF>*THE FPS WAS BAD. ‘<CRLF> 
*DID NOT TAKE THE PATH: ‘<CRLF> 
/FROM STATE 664, TO 505, TO 253./ 


*ADDD (R),A FAILED IN THE ROUND\TRUNK FLOWS. 
<CRLF>"THE FPS WAS BAD. '<CRLF> 

"DID NOT TAKE THE PATH: ‘*<CRLF> 

/FROM STATE 664, TO 705, TO 735./ 


“ADDD (R),A FAILED IN THE oe FLOWS. 


<CRLF>' THE FPS WAS BAD. ‘'<C 


"DID NOT TAKE THE PATH: ‘*<CRLF> 
/FROM STATE 664, 


TO 705, TO 737./ 


SEQ 0151 
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EM216: 


EM217: 
EM220: 


EM221: 


EM222: 


EM223: 


EM224: 


EM225: 


EM226: 


EM227: 


EM230: 
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SEQ 0152 











"THE (BUT FIU FORK IN THE OVER\UNDER 4G oy FAILED. FIU =1.° 
<CRLF>"'WENT FROM STATE 331 TO 115. °<C 

"INSTEAD OF FROM 331 Lb > 

*"ADDD (R)A TRAPPED TO ie FID=1.' 


/ADDD (R),A TRAPPED TO 244./<CRLF> 

"THE RESULT WAS AN OVERFLOW CONDITION BUT FIv= 0." 
<CRLF>/ (BUT FIV) STATE 133 w pe TO 136 INSTEAD OF 116./ 
INSTEAD OF FROM 133 TO 116./ 


/ADDD (R),A FAILED TO TRAP TO 244./<CRLF> 

*THE RESULT WAS A OVERFLOW CONDITION AND FIV=1.°<CRLF> 
/THE (BUT FIV) FORK _FAILED./<CRLF> 

/WENT FROM STATE 133 TO 116,/<CRLF> 

INSTEAD OF FROM 133 TO 136./ 


7ADDD (R),A TRAPPED TO 244./<CRLF> 

"THE RESULT WAS AN UNDERFLOW CONDITION BUT FIU= 0.° 
<CRLF>/(BUT FIU) STATE 331 WENT TO 155 INSTEAD OF 115./ 
INSTEAD OF FROM 331 TO 115./ 


/ADDD (R),A FAILED TO TRAP TO 244./<CRLF> 

*THE RESULT WAS A UNDERFLOW CONDITION AND FIU=1.‘'<CRLF> 
/THE (BUT FIU) FORK FAILED./<CRLF> 

/WENT FROM STATE 331 TO 115,/<CRLF> 

/INSTEAD OF FROM 331 TO 155./ 


/ADDD (R),A TRAPPED TO i /<CRLF > 

"THE RESULT WAS AN UNDERFLOW CONDITION BUT FIU= 0.° 
<CRLF>/(BUT FIU) STATE 137 WENT TO 155 INSTEAD OF 115./ 
/INSTEAD OF FROM 137 TO 115./ 


/ADDD (R),A FAILED TO TRAP TO 244./<CRLF> 

"THE RESULT WAS A UNDERFLOW CONDITION AND FIU=1.°<CRLF> 
/THE (BUT FIU) FORK FAILED./<CRLF> 

/WENT FROM STATE 137 TO 115,/<CRLF> 

/INSTEAD OF FROM 137 TO 155./ 


/ADDD (R),A TRAPPED TO 244,/ 
<CRLF>"BECAUSE OF AN EXPECTED OVERFLOW CONDITION, '<CRLF> 
"BUT THE FEC WAS BAD." 


/ADDD (R),A TRAPPED TO 244, 
<CRLF > *BE CAUSE OF AN EXPECTED OVERFLOW CONDITION, '<CRLF > 
"BUT THE FPS WAS BAD. 


/ADDD (R),A TRAPPED TO 244,/ 
<CRLF>"BECAUSE OF AN EXPECTED UNDERFLOW CONDITION, *<CRLF> 
"BUT THE FEC WAS BAD." 


/ADDD (R),A TRAPPED TO 244,/ 
<CRLF>"BECAUSE OF AN EXPECTED UNDERF LOW CONDITION, *<CRLF > 
"BUT THE FPS WAS BAD. 





6393 
6397 
6404 
6414 
6415 063675 
063675 
6416 063734 
063734 
063766 
6417 064020 
064020 
6418 064066 
6419 064121 
21 


6438 
6439 065036 
065036 
6440 065122 
6441 065207 
065207 
6442 065275 
065275 
6443 065364 
6444 065452 
065452 
6445 065541 
065541 
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104 


18-SEP-79 


EM233: 
EM234: 


EM235: 
EM236: 
EM237: 


EM240: 
EM241: 


EM242: 
EM243: 


EM244: 


EM245: 


EM251: 
EM25S2: 


EM253: 
EM254: 
EM255: 
EM256: 
EM257: 
EM260: 
EM261: 


K 1 
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SEQ 0153 


\LDCFD (R)+,A RESULT INCORRECT.\ 


\RO BAD AFTER LDCFD (R)+,A.\ 
<CRLF>"A BAD CONSTANT WAS USED. * 


\PC BAD AFTER LDCFD #NUM,A. TRAP TO 4.\ 
\PC BAD AFTER LDCFD #NUM,A.\ 


\RO BAD AFTER LDCDF (R)+,A.\ 
<CRLF>'A BAD CONSTANT WAS USED." 


\FPS BAD AFTER LDCFD (R)+,A.\ 
\LDCFD (R)+,A FAILED. \ 
<CRLF>’ THE FD 

"BIT WAS NOT oo , 
"IN STATE 017 

\FPS BAD AFTER LDCDF (R)+,A.\ 
\LDCDF (R)+,A FAILED. \ 
<CRLF>" THE F 

*BIT WAS NOT COMPL IMENTED . 
"IN STATE 017." 

\LDCDF (R)+,A RESULT INCORRECT.\ 
"LDCFD (R),A FAILED." 
<CRLF>'SET SIGN FAILED ’ 

"IN STATE 512.' 

"UNEXPECTED FPP TRAP TO 244, . 
"UNEXPECTED CPU TRAP TO 4. 
"UNEXPECTED CPU TRAP TO 10." 


"CORRECT FLOWS INTERRUPT TEST MODULE FAILED TO INTERRUPT.° 


ZADDD ACO,ACO FAILED IN THE INTERRUPT CORRECT FLOWS./ 
/ADDD (RO),ACO FAILED IN THE INTERRUPT CORRECT FLOWS./ 
ZADDD (RO)+,ACO FAILED IN THE INTERRUPT CORRECT FLOWS./ 
/ADDD a(RO)+,ACO FAILED IN THE INTERRUPT CORRECT FLOWS./ 
/ADDD -(RO),ACO FAILED IN THE INTERRUPT CORRECT FLOWS./ 
/ADDD a-(RO),ACO FAILED IN THE INTERRUPT CORRECT FLOWS./ 
/ADDD NUM(RO),ACO FAILED IN THE INTERRUPT CORRECT FLOWS./ 


CKFPBAO FP11F FLTG PNT PRT B 


L 
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FLAG RESET AND CONSO'.E TEST ROUTINE 
6446 065631 
065631 

6447 065722 
065722 


104 
111 
125 
117 
117 


104 
126 
114 
104 
122 


EM262: 
EM263: 
EM264: 
EM265: 


-ASCIZ 
eASCIZ 
-ASCIZ 
-ASCIZ 
EM266: .ASCIZ 


SEQ 0154 


/ADDD @NUM(RO),ACO FAILED IN THE INTERRUPT CORRECT FLOWS. / 

/DIVD (RO),ACO FAILED IN THE INTERRUPT CORRECT FLOWS. / 

/MULD (RO),ACO FAILED IN THE INTERRUPT CORRECT FLOWS./ 

/MODD (RO),ACO FAILED IN THE INTERRUPT CORRECT FLOWS./ 

"CORRECT FLOWS INTERRUPT TEST MODULE CAUSED UNEXPECTED INTERRUPT. * 


THESE ARE ERROR DATA TABLE HEADERS: 


DH1: ASCII 
-ASCIZ 
-ASCIZ 


DH51=DH1 


* TEST. "<TAB>'CALL AT PC.°<TAB>'ERROR AT PC. °<TAB> 
‘GOT FPS.*<TAB>‘EXPECTED FPS.° 
* TEST.*<TAB>'CALL AT PC.*<TAB>'ERROR AT PC.° 


* TEST. '<TAB>'PC OF CALL. *<TAB>'PC OF ERROR. '<TAB>'FEC.'<TAB>'FPS." 


* TEST. "<TAB>'PC OF CALL'<TAB>'PC OF ERROR. '<TAB> 
‘GOT FEC. "<TAB>*EXPECTED FEC.' 
* TEST. "<TAB>'PC OF CALL.*<TAB>*PC OF ERROR."<TAB>'FPS." 





M1 
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FLAG RESET AND CONSOLE TEST ROUTINE SEQ 0155 
6499 066262 DH52=DH1 
6500 066262 DH111=DH1 
6501 066262 DH112=DH1 
6502 066262 DH113=DH1 
6503 066262 _-DH114=DH1 
6504 066623 040 040 124 DH115: .ASCII ° TEST.'<TAB>'PC OF CALL.'<TAB>'PC OF ERROR. '<TAB> 
6505 066664  —«107—=Ss«d117——«*2' "ASCIZ ‘GOT FEC.*'GOT FPS." "EXPECTED FPS. ° 
65 066623 DH116=DHi15 
6507 066623 DH117=DH115 
G5AR 066623 DH120=DH115 
6509 066623 DH121=DH115 
6510 066623 DH122=DH115 
6511 066262 DH123=DH1 
6512 066262 DH124=DH1 
6513 066262 DH125=DH1 
6514 066262 DH126=DH1 
6515 23 DH127=DH115 
6516 066623 DH130=DH115 
6517 066623 DH131=DH115 
6518 066262 DH132=DH1 
6519 066623 DH133=DH115 
6520 066623 DH134=DH115 
6521 066262 DH135=DH1 
6522 23 DH136=DH115 
6523 066623 DH137=DH115 
6524 23 DH140=DH115 
6525 066623 DH141=DH115 
6526 23 DH142=DH115 
6527 066623 DH143=DH115 
6528 066623 DH144=DH115 
6529 066262 DH145=DH1 
6530 066262 DH146=DH1 
6531 066262 DH147=DH1 
6532 066262 DH150=DH1 
6533 23 DH151=DH115 
65 066623 DH152=DH115 
6535 066623 DH153=DH115 
65 066623 DH154=DH115 
6537 066623 DH155=DH115 
6538 066623 DH156=DH115 
6539 066262 DH157=DH 
6540 23 DH160=DH115 
6541 066262 DH161=DH 
6542 066262 DH162=DH1 
6543 066623 DH163=DH115 
6544 066262 DH164=DH1 
6545 066262 DH53=DH1 
6546 066262 DH54=DH1 
6547 066262 DH55=DH1 
6548 066262 DH56=DH1 
6549 066262 DH57=DH1 
6550 066262 DH6O=DH1 
6551 066262 DH61=DH1 
6552 066262 DH62=DH1 
6553 066262 DH63=DH1 
6554 066262 DH64=DH1 


6555 066262 DH65=DH1 


N 1 
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FLAG RESET AND CONSOLE TEST ROUTINE SEQ 0156 
6556 066262 DH66=DH1 
6557 066262 DH67=DH1 
6558 066262 DH70=DH1 
6559 066262 DH71=DH1 
6560 066262 DH72=DH1 
6561 066262 DH73=DH1 


6562 066262 DH74=DH1 


B 1 
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FLAG RESET AND CONSOLE TEST ROUTINE SEQ 0157 


DH75=DH1 
DH76=DH1 
DH77=DH1 
DH100=DH1 
DH101=DH1 


* TEST.'<TAB>'PC OF CALL. *<TAB>'*PC 
* TEST. *<TAB>'PC OF CALL. *<TAB>'PC 
<TAB>'GOT FPS. '<TAB>*EXPECTED FPS.° 
* TEST.'<TAB>'PC OF CALL. *<TAB>'PC 


*  TEST.'<TAB>'PC OF CALL.*<TAB>'PC 
<TAB>'FPS.'<TAB>'FEC.' 


* TEST.*<TAB>'PC OF CALL. *<TAB>'PC 

<TAB>'GOT FEC. *<TAB>*EXPECTED FEC.' 

* TEST. *°<TAB>'PC OF CALL. *<TAB>'PC 

-ASC <TAB>'GOT FPS.'<TAB>*EXPECTED FPS.* 
DH230=DH226 
DH231=DH227 
DH232=DH227 


6619 
6620 067344 DH233: .ASCIZ * TEST."<TAB>'PC OF CALL. *<TAB>'PC 
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FLAG RESET AND CONSOLE TEST ROUTINE SEQ 0158 


6621 
6622 067405 040 040 DH234: . * TEST. *<TAB>'PC OF CALL. *<TAB>*PC OF ERROR." 
rout 067445 107 ° <TAB>'GOT RO. '<TAB>'EXPECTED RO.' 


040 DH235: . * TEST.'<TAB>'PC OF CALL. *<TAB> 
103 . "PC OF TRAP. *<TAB> 


040 DH236: * TEST.*°<TAB>'PC OF CALL. *<TAB> 
103 ’ "PC OF ERROR. " <TAB>' GOT PC. 
105 3 é <TAB>'EXPECTED PC. 
DH237=DH234 
DH240: .ASCII ° TEST. "<TAB>' PC OF CALL.'<TAB> 
ASCII ‘PC OF ERROR. '<TAB> 
“ASCIZ "GOT FPS. '<TAB>‘EXPECTED FPS.’ 


DH241=DH233 


* TEST. ‘<TAB>'PC OF CALL.*<TAB>'PC OF TRAP.*<TAB>'FEC." 
DH250: * TEST."<TAB>'PC OF CALL.*<TAB>'PC OF TRAP." 
DH251=DH250 


DH252=DH2 


DH266: eASCIZ ° TEST.*<TAB>*PC OF CALL.'<TAB>'PC OF TRAP." 


2 ; THESE ARE THE DATA FORMAT SPECIFIERS FOR THE DATA TABLE: 
070056 DF1: BYTE $.0.,3.0.5.0.5.0.Se2eteIeteo 
ocee 070074 004 000 00 Fe: -~BYTE 4,0,5,0,5,5,3. 5.5.3 


HHNDW DW WW ow 4 


“-HunnnHtnnogs 


NOWUSWNO Il 


6676 
6677 070106 


-BYTE 4,0,5,0,5.0,0 





D1 
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FLAG RESET AND CONSOLE TEST ROUTINE SEQ 0159 
6678 070115 004 000 00S DF20: .BYTE 4,0,5,0,5,0,5,0 
6679 070115 DF 21=DF 20 
6680 070115 DF 22=DF 20 
6681 070125 004 000 OOS DF23: BYTE = 40,5.0,5,0,5.,9,5 562.55 22ededele dered 
6682 070125 DF 24=DF 23 
6683 070125 DF 32=DF 23 

070125 DF 25=DF 23 
6685 070125 DF 26=DF 2 

070125 DF 27=DF 23 
6687 070125 DF 30=DF 23 
6688 070125 DF 31=DF 23 
6689 070151 004 000 00S OF33: BYTE 4,0,5,0,5,0,5.0,5,5,3,5,5,3.5 6943000305 
6690 070151 DF 34=DF 33 
6691 070151 DF 35=DF 33 
6692 070151 DF 36=DF 33 
6693 070125 DF 37=DF 23 
6694 070125 DF 40=DF 23 
6695 070125 DF 41=DF 23 

070125 DF 42=DF 23 
6697 070125 DF 43=DF 23 
6698 070125 DF 44=DF 23 
6699 070125 DF 45=DF 23 
6700 070151 DF 246=DF 33 
6701 070151 DF 46=DF 33 
6702 070151 DF 47=DF 33 
6703 070151 DF 50=DF 33 
6704 070151 DF51=DF 33 
6705 070151 DF 52=DF 33 
6706 070125 DF 111=DF 23 
6707 070125 DF 112=DF 23 
6708 070125 DF 113=DF 23 
6709 070125 DF 114=DF 23 
6710 070175 004 000 OOS OFIIS: BYTE  6.0,5,0,5.0,0.0,5.,5.2,5.5 2S Sebedordeé 
6711 070175 DF116=DF115 
6712 070175 DF117=DF 115 
6713 070175 DF 120=DF 115 
6714 070175 DF121=DF115 
6715 070175 DF 122=DF 115 
6716 070151 DF 123=DF 33 
6717 070151 DF 124=DF 33 
6718 070151 DF 125=DF 33 
6719 070151 DF 126=DF 33 
6720 070221 004 000 OOS OF le7: BYTE 4,0,5.0.5.0,0,60,5,5.5,5,.5,5.9.5.3.3.305 
6721 070221 DF 130=DF 127 
6722 070221 DF 131=DF 127 
6723 070151 DF 132=DF 33 
6724 070221 DF 133=DF 127 
6725 070221 DF 134=DF 127 
6726 070151 DF 135=DF 33 
0727 070221 DF 136=DF 127 
6728 070175 DF 137=DF 115 
6729 070175 DF 140=DF 115 
6730 070175 DF141=DF115 
6731 070175 DF142=DF 175 
6732 070175 DF 143=DF 115 
67353 - 070175 DF 144=DF115 
6734 070125 DF 145=DF 23 





E 1 
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FLAG RESET AND CONSOLE TEST ROUTINE SEQ 0160 


070125 
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2 3 
070277 004 : 7% 4,0,5..0.5,0,5.0.5..5.3.5.5.35.5 50505 cd e3edodeSedetes 


DF 106=DF 70 
DF 107=DF 70 
DF 1 ; 


o— 
Wo 


9 
070331 4.0,5.0,5.0.0,0.5.$.2 3S cb edetedetetelaterdet odeted 
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6824 


070415 
070425 


070451 


070501 


070510 
070525 


070534 
2 


070540 


34 070546 


070552 


004 
070540 


070546 


009 
000 


000 


000 


000 
000 


000 


000 


000 
000 
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005 
005 


005 


005 


005 
005 


005 


005 


005 
005 


DF 201=DF 176 


F233: .BYTE 
DF234: .BYTE 
DF235: .BYTE 


DF 251=DF 247 
DF252: .BYTE 


& 
18=SEP=79 13:43 PAGE 19-4 


4,0,5.0.5,0,5.0 
G0,5,0,5 5.56305 e Deedee ede Sede Ie red 


4.0.5.0.5.0.5.0.5..5..5,5.9 5.325 e5eFeSateteteter 


4,0,5.0,5,0,0 


15.0,5.5,3.5,543.5,5.3 


4,0,5.0.5.0 


4,0,5.0 
4.0.,5,.0,$.0,5.0,5.5,.9.5,9.6,5,. 50 c3 3005 cSetet ede? 


SEQ 0161 



















G 1 
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SEG 0162 


6850 - EVEN 


6852 in ARE ERROR DATA TABLES (FORMATTED ABOVE? 

6853 070604 001232 001234 037215 611 WORD $TMPO,$TMP1,$TAB,$TMP2,$TAB, SIMPS. $TAB,STMP6 

6854 070624 001313 037222 001240 “WORD SCRLF MS1,$1MP3,$CRLF ,MS2,$TMP4 ,0 

6855 070642 001232 001234 037215 Die: “WORD $TMPO.$TMP1,$TAB,$TMP2,SCRLF, ms3. STMP3,S$CRLF .MS4,STMP4 0 
6856 070604 DT3=DT1 

6857 070604 DT4=DT1 

6858 070604 DT5=DT1 

6859 070604 DT6=DT1 

6860 070604 DT7=DT1 

6861 070604 DT10=DT1 


7 070604 
6868 070670 001232 001234 037215 DT17: .WORD $TMPO,$TMP1,$TAB,S$TMP2,$TAB,STMP4,STMPS 0 
6869 070710 001232 001234 037215 DT20: .WORD $TMPO,$TMP1,$TAB,$TMP2,$TAB,STMP4,$TAB,STIMPS,0 
6870 070732 001232 001234 037215 DT21: .WORD $TMPO,S$TMP1,$TAB,STMP2,$TAB,STMP4 STAB, SIMP3S,0 
6871 070754 001232 001234 037215 DT22:  .WORD $TMPO,$TMP1,$TAB,STMP2,$TAB,SIMPS, 
6872 070772 001232 001234 037215 DT23: .WORD $TMPO,STMP1,$TAB,STMP2,$TAB,STMP7,$TAB,STMP10,SCRLF .MS1,$1MP3,$CRLF .MS2,$TMP 
rr 071026 001313 037335 001244 gon SCRLF .MSS,STMPS,$CRLF .MS6,$TMP6 ,0 


6901 0 2 3 

6902 071044 001232 001234 037215 : WORD $TMPO,$7MP1,$TAB,STMP2,$1AB,$TMP11,$1MP”,$TAB,SIMP 10 
6903 071066 001313 037222 001240 -WORD $CRLF .MS1.$TMP3,$CRLF .MS2,$TMP4 

6904 071102 001313 057335 001244 -WORD $CRLF,.MSS,$TMPS,SCRLF .MS6,$TMP6,0 

6905 071044 DT176=DT115 
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071120 
071140 
071154 
071170 


071120 


037375 


H 
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037215 
001240 
001244 
001250 


44444 SHH 


Wr —-ONAUSWN—OwN 


DT143=DT 
DT144=DT1 
DT145=DT23 


DT157=DT23 
DT160=DT11 


D154=DT53 
DT55=DT53 
DT56=DT53 
DT57=DT53 
DT60=DT53 


DT72=DT53 


$TMPC,$TMP1,$TAB,STMP2,$TAB,$TMP11,$TAB,SIMPI2 
SCRLF .MS1,$1TMP3,$CRLF .MS2,$TMP4 

SCRLF ,MS11,$TMP5,$CRLF .MS12,$TMP6 

$CRLF .MS7,$1TMP7,$CRLF .MS10,$TMP10,0 


SEQ 0163 


) Day? oar 
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FLAG RESET AND CONSOLE TEST ROUTINE SEQ 0164 
6963 071120 DT73=DT53 
6964 071120 D174=DT53 
6965 071120 DT75=DT53 
6966 071120 D176=DT53 
6967 071120 DT77=DT53 
6968 071120 DT100=DT53 
6969 071120 DT101=DT53 
$970 071120 DT102=DT53 
6971 071120 DT103=DT53 
6972 071120 DT104=DT53 
6973 071120 DT105=DT53 
6974 071120 DT106=DT53 
6975 071120 DT107=DT53 
6976 071120 DT110=DT53 
6977 071206 001232 001234 037215 DT165: .WORD $TMPO,$TMP1,$TAB,STMP2,$TAB,STIMP135,$1MP11,$1MPi2 
6978 071226 001313 037222 001240 «WORD $CRLF.MS1,$TMP3,$CRLF .MS2,$TMP4 
6979 071242 001313 037443 001244 “WORD $CRLF.MS11,$TMP5,$CRLF .MS12,$TMP6 
6980 071256 001313 037375 001250 «WORD $CRLF.MS7,$1MP7,$CRLF ,MS10,$1TMP10,0 
6981 071206 DT166=DT165 
6982 071206 DT167=DT165 
6983 071206 DT170=DT165 
6984 071206 DT171=DT165 
6985 071206 DT172=DT165 
6986 071206 DT173=DT165 
6987 071206 DT174=DT165 
6988 071206 DT175=DT165 
6989 071206 DT176=DT165 
071206 DT177=DT165 
6991 071206 DT200=DT165 
6992 071206 DT201=DT165 
6993 071206 DT202=DT165 
6994 071206 DT203=DT165 
6995 071206 DT204=DT165 
6996 071206 DT205=DT165 
eae 071206 DT206=DT165 
6999 071274 001232 001234 037215 DT210: .WORD $TMPO,$TMP1,$TAB,S$TMP2,$TAB,STMP3 
7000 071310 037215 001242 000000 “WORD  $TAB,$TMP4,0 
7001 071316 001232 001234 037215 DI207: WORD $TMPO,STMP1,STAB,STMP2,$CRLF .MS41,$CRLF .STMP3 
7002 071336 001313 037610 001313 “WORD  $CRLF .MS42,$CRLF .$TMP4.$CRLF .MS43.$CRLF .STMP5 
7003 071356 001313 037643 001313 “WORD $CRLF.MS44.$CRLF .$TMP6,0 
7004 071316 DT211=DT207 
7005 071370 001232 001234 037215 DI212: .WORD $TMPO,S™MP1,$TAB,STMP2,$TAB,STMP10,$TAB,SIMP11 
7006 071410 001313 037564 091313 -WORD $CRLF .MS41,$CRLF ,STMP3,$CRLF .MS42,$CRLF ,STMP4 
7007 071430 001313 037626 001313 «WORD $CRLF,MS43,$CRLF,$TMPS,SCRLF .MS44,SCRLF ,STMP6,0 
7008 071370 DT213=DT212 
7 071370 DT214=DT212 
7010 071370 DT215=DT212 
7011 071316 DT216=DT207 
7012 071452 001232 001234 37215 DI217: .WORD $TMPO,$TMP1,$7AB,$TMP2,$TAB,$TMP3,$IMP4,0 
7013 071316 01920 DT207 
7014 071316 DT221=DT207 
7015 071516 DT222=DT 207 
7016 071316 DT223=DT207 
7017 071316 DT224=DT207 
7018 071316 DT225=DT 207 
7019 071370 DT226=DT212 








CKFPBAO FP1IF FLTG PNT PR 
FLAG RESET AND CONSOLE 


071472 


30 071504 


071516 
071526 


34 
077546 
36 


071560 
071576 


071610 


071622 
071642 
071656 
071672 


071622 
071610 


000001 


091234 
001244 
037564 
001234 


001234 


001234 
001234 


001234 


037115 


Li) MACRO M1111 
TEST ROUTINE 


037215 
001313 
001250 
037215 


037215 


037215 
037215 


037215 
037215 


001240 


WORD 
DT234: .WORD 
DT235: WORD 


DT250: . WORD 
DT251=DT250 

DT252: .wORD 
DT253: . WORD 


D1264=DT253 
DT265=DT253 


DT 266=DT 252 


312345 
.END 
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$TMPO,STMP1 ,STAB,STMP2 ,SCRLF 
MS37,$TMPS,$CRLF .MS40,$7MP6 
SCRLF .MS41,$TMP7,0 


$TMPO,STMP1,$TAB,STMP2,$TAB,$TMP3,$1MP4,0 
$TMPO,STMP1,$TAB,STMP2,0 


$TMPO,STMP1,$TAB,STMP2,$TAB,STMP3,0 
$TMPO,$TMP1,$TAB,$TMP2,0 


STMPO,STMP1,$TAB,STMP2,0 


$TMPO,STMP1 STAB, STMP2, STAB, STMP7 STAB, STMP10 
SCRLF .MSA1,$TMP11,$CRLF ,MSA2,$TMP12 

SCRLF .MSA3,$TMPS .SCRLF ,MSA4 ,$TMP6 

SCRLF .MSAS,$TMP3,$CRLF ,MSA6,STMP4 ,0 


SEQ 0165 
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AB SEQ 0166 


070056 070151 


AO 
Wr 


“uw 


sesov9v9v9rg9r9r9g7r999r7727"7—79 
TNH HAHAH 


wn 
WWNRDRININNNNNN 2 2 2 2 PF PP POO OSOOOCOCSoOO 
SoS NOAUESWN HO NOMEFWNHO NOAMUEWNHO 


WTR Te 


wis 


N 
nnnnnnnnhnnnnna 


yH3455554 


J 
nm 
— 


~ 


ADDWO 
ADDW 
ADDW 
ADDW 
ADDW 
ADDW 
ADDW1 
ADDW 
ADDW. 
ADDW3 
ADDW4 
ADDWS 
ADDW6 
ADDW 
ADDW8 
ADDW9 
ADE VC 
ADE VM 
AENV 
AENVM 


rnin nnn nnn nea 
scvVvVv9097000TC70 

a ed ed i ee ed eed ed ed ed od -d e ed eed d 

-9O NOUS WN HO NOME WN HO 


000400 
001000 DF 1 070056 070151 070510 
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SYMBOL TABLE SEQ 0167 
DF244 = 070510 DF67 = 070245 DH150 = 066262 DH232 = 067255 DH55 = 066262 
DF245 = 070510 DF? = 070056 DH151 = 066623 DH233 = 067344 DH5S6 == 066262 
DF 246 = 070151 DF 70 070277 DH152 = 066623 DH234 067405 DHS7 = 06626 
DF247 070540 DF71 = 070277 DH153 = 066623 DH235 067473 D = 066262 
DF25 = 070125 DF72 = 070277 DH154 = 066623 DH236 §86©— 0067533 DH60 = 066262 
DF250 = 070540 DF73 = 070277 DH155 = 066623 DH237 = 067405 DH61 = 066262 
DF251 = 070540 DF74 = 070277 DH156 = 066623 DH24 = 066262 DH62 = 066262 
DF252 070546 DF75 = 070277 DH157 = 62 DH240 067621 DH63 = 066262 
DF253 070552 DF76 = 070277 DH16_ = 066262 DH241 = 067344 D = 066262 
DF254 = 070552 DF77 = 070277 DH160 = 066623 DH242 = 067621 DH65 = 066262 
DF255 = 070552 DH1 066262 DH161 = 066262 DH243 = 067344 D = 066262 
DF256 = 070552 DH10_ = 066262 DH162 = 262 DH244 = 067344 DH67 = 066262 
DF257 = 070552 DH100 = 066262 DH163 = 066623 DHe45 = 067344 DH7_ = =: 066262 
DF26 = 070125 DH101 = 066262 DH164 = 066262 DH246 = 066262 DH70 = 066262 
DF 260 = 070552 DH102 = 066262 DH165 = 066623 DH247 = 0677111 DH71 = 066262 
DF 261 = 070552 DH103 = 066262 DH166 = 23 DH25_ = 066262 DH72 = 066262 
DF 262 = 070552 DH104 = 066262 DH167 = 23 DH250 067756 DH73 = 066262 
DF 263 = 070552 DH105 = 066262 DH17 066413 DH251 = 067756 DH74 = 066262 
DF 264 = 070552 DH106 = 066262 DH170 = 066623 DH252 = 066352 DH75 = 066262 
DF265 = 070552 DH107 = 066262 DH171 = 066623 DH253 = 066262 DH76 = 066262 
DF 266 = 070546 DH11_ = 066262 DH172 = 23 DH254 = 066262 DH77 = 066262 
DF27 = 070125 DH110 = 066262 DH173 = 066623 DH255 = 066262 DISPLA 001142 
DF3_ = 070056 DH111 = 066262 DH174 = 066623 DH256 = 066262 DISPRE 00017 
DF30 = 070125 DH112 = 066262 DH175 = 066623 DH257 = 066262 DIVDSU 016614 
DF31 = 070125 DH113 = 066262 DH176 = 23 DH26_ = 066262 DIVDT 017044 
DF32 = 070125 DH114 = 066262 DH177 = 23 DH260 = 066262 DIVFSU 015674 
DF 33 070151 DH115 066623 DH2 066352 DH261 = 066262 DIVFT 016110 
DF34 = 070151 DH116 = 066623 DH20_ = 066262 DH262 = 066262 DSWR = 177570 
DF35 = 070151 DH117 = 066623 DH200 = 23 DH263 = 066262 DT1 070604 
DF36 = 070151 DH12_ = 066262 DH201 = 066623 DH264 = 066262 DT10 = 070604 
DF37 = 070125 DH120 = 066623 DH202 = 23 DH265 = 066262 DT100 = 071120 
DF4 = 070056 DH121 = 066623 DH203 = 23 DH266 070016 DT101 = 071120 
DF4O0 = 070125 DH122 = 066623 DH204 = 066623 DH27 = 066262 DT102 = 071120 
DF41 = 070125 DH123 = 066262 DH205 = 23 DHS = 066262 DT103 = 071120 
DF42 = 070125 DH124 = 066262 DH206 = 23 DH30 = 262 DT104 = 071120 
DF43 = 070125 DH125 = 066262 DH207 066762 DH31 = 066262 DT105 = 071120 
DF44 = 070125 DH126 = 066262 DH21 066466 DH32 = 262 DT106 = 071120 
DF45 = 070125 DH127 = 066623 DH210 067052 DH33 = 066262 DT107 = 071120 
DF46 = 070151 DH13_ = 066262 DH211 = 067052 DH34 = 066262 DT11_ = 0706 
DF47 = 070151 DH130 = 066623 DH212 = 066762 DH35 = 066262 DT110 = 071120 
DFS = 070056 DH131 = 066623 DH213 = 066762 DH36 = 066262 D1111 = 070772 
DF5O0 = 070151 DH132 = 066262 DH214 = 066762 DH37 = 066262 DT112 = 070772 
DF51 = 070151 DH1335 = 066623 DH215 = 762 DH4 = 066262 DT113 = 070772 
DF52 = 070151 DH134 = 066623 DH216 = 067052 DH40 = 066262 DT114 = 070772 
DF 53 070245 DH135 = 066262 DH217 = 067113 DH41 = 262 DT1i5 071044 
DF54 = 070245 DH136 = 066623 DH22 066555 DH42 = 066262 DT116 = 071044 
DF55 = 070245 DH137 = 066623 DH220 066722 DH43 = 262 DT117 = 071044 
DF56 = 070245 DH14_ = 066262 DH221 = 067052 DH44 = 066262 DT12 = 070604 
DF57 = 070245 DH140 = 066623 DH222 = 066722 DH45 = 066262 DT120 = 071044 
DF6 = 070056 DH141 = 066623 DH2235 = 067052 DH46 = 066262 DT121 = 071044 
DF60 = 070245 DH142 = 066623 DH224 = 066722 DH47 = 066262 DT122 = 071044 
DF61 = 070245 DH143 = 066623 DH225 = 067052 DHS == 066262 DT123 = 070772 
DF62 = 070245 DH144 = 066623 DH226 =: 0677166 DH50 = 066262 DT124 = 070772 
DF63 = 070245 DH145 = 066262 DH227 3=— 067255 DH51 = 066262 DT125 = 070772 
DF64 = 070245 DH146 = 066262 DH23_ = 066262 DH52 = 066262 DT126 = 070772 
DF65 = 070245 DH147 = 066262 DH230 = 067166 DH53 = 066262 DT127 = 071044 
DF66 = 070245 DH15 = 066262 DH231 = 067255 DH54 = 066262 D113 = 070604 
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SYMBOL E SEQ 0168 
DT130 = 071044 DT212 071370 D135 = 070772 EM101 053764 EM164 051337 
DT131 = 071044 DT2135 = 071370 DT36 = 070772 EM102 054160 EM165 055270 
DT132 = 070772 DT214 = 071370 D137 == 070772 EM103 054354 EM166 055354 
DT133 = 071044 DT215 = 071370 DT4 = 070604 EM104 054466 EM167 055437 
DT134 = 071044 DT216 = 071316 DT40 = 070772 EM105 054633 EM17 04 
DT135 = 070772 DT217 = 071452 D141 = 070772 EM106 94054742 EM170 055471 
D136 = 071044 22 070754 DT42 = 070772 EM107 055051 EM171 055557 
DT137 = 071044 DT220 = 071316 D143. = 070772 EM11 040650 EM172 055702 
DT14 =0 DT221 = 071316 D144 = 070772 EM110 055160 EM173 = 055767 
DT140 = 071044 DT222 = 071316 D145 = 070772 EM111 043775 EM174 056135 
DT141 = 071044 DT223 = 071316 D146 = 070772 EM112 044052 EM175 30 
DT142 = 071044 DT224 = 071316 D147 = 070772 EM113 044130 EM176 64 
DT143 = 071044 DT225 = 071316 DTS = 070604 EM114 044206 EM177 =: 056501 
DT144 = 0 4 DT226 = 071370 D150 = 070772 M115 044265 E 037756 
DT145 = 070772 DT227 = 071370 D™51 = 070772 EM116 044343 EM20 

DT146 = 070772 DT23 070772 DI52 = 070772 EM117 9044422 EM200 056564 
DT147 = 070772 DT230 = 071370 DT53 071120 EM12 040757 EM201 

D115 =0 DT231 = 071274 D154 = 071120 EM120 044560 EM202 056705 
DT150 = 070772 DT232 = 071316 DTS5 == 071120 EM121 044716 EM203 057047 
DT151 = 071044 DT233 9071472 DT56 = 071120 EM122 = 045053 057211 
DT152 = 071044 DT234 071526 DT57 = 071120 EM123 045210 EM205 057277 
DT153 = 071044 DT235 071546 DT6 = 0706 EM124 045266 EM206 057445 
DT154 = 071044 DT236 = 071526 DT60 = 071120 EM125 045345 EM207 057613 
DT155 = 071044 DT237 = 071526 D161 = 071120 EM126 §= 045423 041632 
DT156 = 071044 DT24 = 070772 DT62 = 071120 EM127 045502 EM210 057655 
DT157 = 070772 DT240 = 071526 D163 = 071120 EM13 041066 EM211 9057717 
DT16_ = 070604 DT241 = 071472 D164 = 071120 EM130 045560 EM212 

DT160 = 071044 DT242 = 071526 DT65 = 071120 EM131 045637 EM213 060247 
DT161 = 070772 DT243 = 071472 DT66 = 071120 EM132 045775 EM214 060433 
DT162 = 070772 DT244 = 071472 DT67 = 071120 EM133 046133 EM215 060617 
DT163 = 071044 D1245 = 071472 DT? = 070604 EM134 046271 EM216 061003 
DT164 = 070772 DT246 = 070772 DT70 = 071120 EM135 046426 EM217 061165 
DT165 071206 DT247 =©071560 DT71 = 071120 EM136 046563 EM22 

DT166 = DT25 = 070772 DT72 = 071120 EM137 046720 EM220 061227 
DT167 = 071206 DT250 071576 D173 == 071120 EM14 041202 EM221 061457 
DT17 070670 DT251 = 071576 DT74 == 071120 EM140 7006 EM222 9061723 
DT170 = 071206 DT252 071610 DT75 = 071120 EM141 = 043775 EM223 062154 
DT171 = 071206 DT253 071622 DT76 == 071120 EM142 = 044052 EM224 062421 
DT172 = 071206 DT254 = 071622 DT77__ = 071120 EM145 9047075 EM225 062652 
DT173 = 071206 DT255 = 071622 EEEDON 020 EM144 = 047153 EM226 8063117 
DT174 = 071206 DT256 = 071622 EE 017060 EM145 047232 EM227 063252 
DT175 = 071206 DT257 = 071622 EEE1O 017454 EM146 = 047377 EM23 041745 
DT176 = 071206 DT26 = 070772 EEE11 017510 EM147 = 047544 EM230 

DT177 = 071206 DT260 = 071622 EEE12 017544 15 041314 EM231 063541 
DT2 070642 DT261 = 071622 EEE1S 0176 EM150 047710 EM232 = 057655 
DT20 070710 DT262 = 071622 EEE2 017114 EM151 050054 EM235 36 
DT200 = 071206 D263 = 071622 EEES 017150 EM152 050142 EM234 063734 
DT201 = 071206 DT264 = 071622 EEE4 017204 EM153 = 045210 EM235 064020 
DT202 = 071206 DT265 = 071622 EEES 0172 EM154 = 045266 

DT203 = 071206 DT266 = 071610 EEE6 017274 EM155 050231 EM237 = 064121 
DT204 = 071206 DT27 = 070772 EEE? 017330 EM156 050307 042022 
DT205 = 071206 DTS = 0706 EEE8 017364 EM157 050366 EM240 064205 
DT206 = 071206 DT30 = 070772 EEE9 017420 EM16 041426 EM241 064241 
DT207 =071316 D131 = 070772 EMTVEC= 00 EM160 050533 EM242 4 
DT21 070732 D132. = 070772 EM! 37724 EM161 050671 EM245 064400 
DT210 071274 D133 = 070772 EM10 040543 EM162 =: 051036 EM244 064503 
DT211 = 071316 D134 = 070772 EM100 053701 EM163 051202 EM245 064542 
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SYMBOL E SEQ 0169 
EM246 §3=— 043405 EM70 053166 GGG5 024464 HHHDON 030004 HXER11 013200 
EM247 064624 EM71 053217 GGG6 024534 HHH1 025702 HXER12 013220 
5 042120 EM72 053247 G7 024604 HHH10 02700 HXER13 013250 
EM250 064 EM73 = 053247 GGG8 024654 HHH11 027102 HXER2 012716 
EM251 064712 EM74 053301 GGG9 024724 HHH12 9027202 HXER22 012732 
EM252 064745 EM75 053410 GGP1 011550 HHH15 027302 HXERS_ 012746 
EM253 065036 EM76 053501 GGP2 011560 HHH2 026002 HXER33 012762 
E 065122 EM77 053571 GGP3 011570 HHH3 026102 HXER4 012776 
EM255 065207 ERM10 § 034152 GGP4 011600 HHH4 026202 HXERS 012676 
065275 ERROR = 104000 GGP5 011610 HHH5 026302 HXER6 013032 
EM257 065364 ERRVEC= GGP6 011620 026402 HXER66 013046 
042205 ERTYPE 036204 GGP7 01163 HHH7 026502 HXER7 013062 
065452 ERT 036370 GGP8 011640 HHH8 026602 HXER8 013014 
EM261 065543 ERT2 036624 011650 HHH9 026702 HXER9 = 013112 
EM262 = 065631 ERTS 3663 GG1 006746 HHPO 00660 HXP1 013300 
EM263 065722 ERT4 0 GG10 007242 HHP 1 2 HXP2 013310 
ERTS 036654 GG11 007300 HHP10 006722 HXP3 013320 
EM265 7 FFFDON 020614 GG12 7322 HHP11 006732 HXP4 013330 
066161 FFF 020070 GG13 007332 HHP2 006622 HXP5 013340 
EM27 = 042120 FFF2 020144 GG14 007350 HHP3 006632 HXP6 013350 
EMS 040012 FFF3 020220 GG15 007406 HHP4 006642 HXP7 013360 
EM30 2303 FFF4 029274 GG16 007424 HHP5 006652 HXP8 013370 
EM31 042355 FPSPUR 0 GG17 007472 HHP6 006662 HX1 
EM32 041770 FPVECT= 000 GG18 007502 HHP7 006672 HX10 012072 
EM33 042422 GGDATO 011540 GG19 007536 HHP8 HX11 012114 
E 042445 GGDONE 011660 GG2 007004 HHP9 06712 HX12 0121 
EM35 042477 GGERO 010036 GG20 007574 HHTRAP 006 HX13 012144 
EM36 042552 GGER1 010134 GG21 007616 1 005022 HX14 012152 
EM37 042620 GGER10 01 GG22 007626 HH10 05234 HX15 012170 
EM, 040117 GGER11 010714 GG23 007644 HH11 05252 HX16 012216 
EM4O 042643 GGER12 010762 GG24 007702 HH12 005302 HX165 012222 
EM41 042675 GGER13 011030 GG25 007720 HH13 005324 HX17 12250 
EM42 042750 GGER14 011076 GG26 007766 HH14 005344 HX18 012306 
EM43 043101 GGER15 011174 GG27 007776 HH15 005354 HX19 012326 
EM44 043232 GGER16 011242 GG28 10032 HH16 5362 HX2 011714 
EM45 043300 GGER17 011310 GG3 007026 HH17 005400 HX20 012336 
EM46 043353 GGER18 011356 GG4 007036 HH18 05436 HX21 12340 
EM47 043430 GGER19 011424 GG5 007054 HH19 005460 HX22 012370 
EMS 040224 R 010202 GG6 007112 HH2 005052 HX23 012410 
EMSO 043564 GGER20 011472 GG7 007130 HH20 005470 HX24 012430 
EMS1 043637 G 010250 GG8 007176 HH21 005506 HX25 012440 
EMS2 043705 GGERS 010316 9 7206 HH22 005536 HX26 012446 
EMS3 051535 GGERS 010320 GTSWR = 104405 HH23 005560 HX27 012450 
EMS4 1566 010 HHDATO 572 HH24 005570 HX28 012502 
EM55 051503 GGER7 010434 HHDONE 006742 HH25 005606 HX29 012524 
EMS6 051616 GGER8 010532 HHERO 005612 HH3 005074 HX3 011730 
EM5S7 051707 GGER9 010600 HHEROO 005726 HH4 005114 HX30 012534 
E 04 GGGDON 025676 HHER1 005660 HH5 005124 HX31 012552 
E 051777 GGG1 024224 HHER10 00645 005132 HX32 012602 
EM61 052101 GGG10 24774 HHER2 005774 HH? 005144 HX33 012624 
EM62 052275 GGG11 04 HHERS 006042 HH8 005202 HX 34 012634 
EM65 052471 GGG12 025114 HHERS 006110 HH9 005224 HX35 012652 
E GGG13 025164 HHERS 006156 HT = HX4 011750 
EM65 052721 GGG14 25234 HHER6 HXDATO 013270 HX5 011770 
EM66 053034 GGG2 024274 HHER? 006272 HXDONE 015400 HX6 012000 
EM67 053103 GGG3 024344 HHER8 006340 HXER1 012656 HX7 012006 
EM7 0404 36 GGG4 024414 HHER9 006406 HXER10 015146 HX8 012024 
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SYMBOL SEQ 0170 


012056 037512 


Sassssss 
UWA = Se 
Wwe = fPwWw 
SRORSRS 


NW y 
N 
SWE SUDA SRWO 


rs 


— 
— — 


: 00 
. ; 00 
> = 03 
-- 2 03 
. . i 


RESEEEEEES 


aoe 
mo 
no 
aBa 
? 


RESVEC= 000010 
RSETUP= 104412 
R6 =%000006 
=%000007 
104410 


000004 
037217 
001100 


ee A A FS Fe; ce, CE 8 ee) 8 Se ee es ee OS 8 se ee ee. a 1 AO 


004336 
177774 
001140 22 

SWREG 000176 $SATYC 35054 SETEND 
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SYMBOL TABLE 


SEQ 0171 


$REGIO 001202 SRESRE 034212 $TESTN 001322 STMP22 001276 $TYPE 034250 

$REG11 001204 SRTNAD 033426 STIMES 001302 $TMP25 001300 $TYPEC 034462 

SREGI2 001206 SRTRN 033422 $TKB 001146 STMPS 001240 S$TYPEX 034600 

$REGI3 001210 SSAVRE 034154 $TKS 0011 STMP4 = 001242 $TYPOC 034626 

S$REGI4 001212 SSAVR6 0362 $ 001232 STMPS 001244 STYPON 034 

$REGIS 001214 033436 STMP1 001234 STMP6 2 $TYPOS 

SREGI6 001216 SSE TUP= $TMP10 001252 STMP7 = =001250 IT 001330 

$REG17 001220 $STUP = 177777 STMP11 001254 SIN = SUNITM 

SREG2 001166 SSVLAD STMPi2 0012 TPB 1152 Ss 001342 
001222 $SSVPC = STMP13 001260 STPFLG 001157 $VECT1 

SREG21 001224 $ = 177400 $TMP14 001262 $TPS 001150 $VECT2 001370 

SREG22 001226 SSWREG 001340 $STMP15 001264 STRAP 035734 $XTSTR 033450 

SREG23 $ ~ $TMP16 0012 $TRAP2 035756 $SGET4= 

$REGS 001170 SSWRMS= 000200 $TMP17 001270 $TRP = 000014 SOFILL 035025 

SREGS 001172 $TAB 037215 $STMP2 001236 $TRPAD 035770 -LPER 036746 

SREGS 001174 $TBIT 033430 STMP20 001272 STSTM 004326 «RSET 036754 

SREG6 001176 STERM = 000030 $TMP21 001274 $TSTNM 001102 -$X = 004322 


- ABS. 071710 000 
000000 001 
ERRORS DETECTED: 0 


VIRTUAL MEMORY USED: 58376 WORDS ( 229 PAGES) 
DYNAMIC MEMORY : tc ot i WORDS ( 78 PAGES) 

ELAPSED TIME: 00:15:56 

CKF PBAO.BIN,CKF PBAO. SEQ/CRF =CKFPBAO.MLB/ML , CKF PBAQ.P11 
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*9-962 
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SYMBOL CROSS REFERENCE 
MBOL 


SY VALUE 
ADDW7 = 000000 
Abbe = 00000 
ADEVCT = 000000 
ADEVM = 000000 
AENV = 000000 
AENVM = 000000 
AFATAL = 000000 
AMADR1 = 000000 
AMADR2 = 000000 
AMADR3 = 000000 
AMADR4 = 000000 
AMAMS1 = 000000 
AMAMS2 = 000000 
AMAMS3 = 000000 
AMAMSS = 000000 
AMSGAD = 000000 
AMSGLG = 000000 
AMSGTY = 000000 
AMTYP? = OCO0000 
AMTYP2 = 000000 
AMTYP3 = 000000 
AMTYP4 = 000000 
APASS = 000000 
APRIOR = 000000 
APTCSU = 000040 
APTENV = 000001 
APTSIZ = 000200 
APTSPO = 000100 
ASWREG = 000000 
ATESTN = 000000 
AUNIT = 000000 
AUSWR = 000000 
AVECT1 = 000000 
AVECT2 = 000000 
015110 
BBBER1 014 
BBBER2 014750 
BBBER3 014776 
BBBER4 015024 
BBBP 1 015070 
BBBP2 015100 
BBBO 014414 
8881 014450 
BBB2 014476 
B8B3 014526 
BBBS 014554 
BBBS 014612 
BBB6 014620 
BITO = 000001 
BITOO §= = 000001 
BIT01 = 000002 


REFERENCES 
8-890 


#7-877 


17-5651 


12-2173 
#12-2132 
#12-2154 


#12-2179 
#12-2184 


7-877 
7-877 


17-5655 
#17-5655 


12-2232 


12-2197 
12-2201 


12-2153 
#12-2256 


12-2184 


PAGE 2 
CREF 


417-5655 


12-2240 


#12-2227 
#12=2235 


12-2177 


12-2253 


#12=2255 


#12=-2260 


SEQ 0173 


CKF PBAO CREATED BY MACRO ON 18-SEP-79 AT 13:50 cnet 3 


SYMBOL CROSS REFERENCE SEQ 0174 
SYMBOL VALUE 


Vv REFERENCES 

BITO2 = #7~877 -877 

BITOS = 000010 #7-877 7-877 

BITO4 == 000020 #7-877 7-877 

BITOS = 47-877 7-877 

BIT06 = = 000100 #7-877 7-877 

BITO07 = 000200 #7-877 7-877 

BIT08 = 000400 #7-877 7-877 17-5645 

BITO9 = 001000 #7-877 7-877 17-5645 17=5647 17-5647 

BIT] = 000002 #7-877 

BIT10 = 002000 #7-877 17-5647 

BIT11 = 004000 #7-877 17-5645 

BIT12 = 010000 #7-877 17-5643 

BIT13 = 020000 #7-877 17-5647 

BIT14 = 040000 47-877 17-5645 

BIT15 = 100000 #7-877 

BIT2 = 000004 #7-877 

BITS = 000010 47-877 

BITS = 000020 #7-877 

BiTS = 000040 #7-877 

BIT6 = 000100 #7-877 

BIT7 = 000200 47-877 

BIT8 = 00 #7-877 

BIT9 = 001000 47-877 

BPTVEC = 000014 #7-877 

CCCDON 016120 12-2420 #12-2507 

ccC1 015114 #12-2274 

ccc10 015510 #12-2376 

ccc11 015544 #12-2387 

ccC12 015600 #12-2399 

ccc13 015634 #12-2410 

ccC2 015150 #12-2285 

ccc3 015204 #12-2296 

CCC4 015240 #12-2308 

cccs 015274 #12-2319 

CCC6 015330 #12-2330 

CCC7 364 #12-2341 

ccc8 015420 #12-2353 

ccc9 015454 #12-2365 

CKSWR = 104406 17-5645 17-5647 17-5647 3917-5659 17-5886 

CMPSUB 014216 11-1822 11-1833 11-1846 11-1859 11-1873 11-1886 11-1903 11-1920 11-1937 

11-1953 12-1971 12-1988 12-2005 #12-2046 

CMP TMP 014376 12-2086 12-2098 #12-2102 

CNT = 000267 #9-892 9-896 9-896 49-896 9-896 9-896 #9-896 9-896 9-896 
#9-896 9-896 9-896 #9-896 9-896 9-896 #9-896 9-896 9-896 
49-896 9-896 9-896 49-896 9-896 9-8 #9-896 9-896 9-896 
49-896 9-896 9-896 #9-896 9-896 9-896 49-896 9-896 9-896 
#9-896 9-896 9-896 #9-896 9-896 9-896 #9~896 9-896 9-896 
49-896 9-896 9-896 #9-896 9-896 9-896 #9-896 9-896 9-896 
49-896 9-896 9-896 49-89 9-896 9-896 #9~-896 9-896 9-896 
#9-896 9-896 9-896 49-896 9-896 9-896 #9~-896 9-896 9-896 
#9-896 9-896 9-896 #9-896 9-896 9-896 #9-896 9-396 9-896 


#9-896 9-896 9-896 #9-896 9-896 9-896 #9-896 9-896 9-896 


CKF PBAO CREATED BY MACRO ON 18-SEP-79 AT 13:50 Kae s 


SYMBOL CROSS REFERENCE cRE SEQ 0175 
SYMBOL VALUE REFERENCES 

#9-896 ~896 9-896 #9-896 9-896 9-896 #9-896 9-896 9-896 
#9-896 9-896 9-896 #9-896 9-896 9-8 8 9-896 9-896 
#9~896 9-896 9-896 #9-896 9-896 9-896 #9~-896 9-896 9-896 
#9-896 9-896 8 #9~-896 9-896 9-896 49-896 9-896 9-896 
#9~896 9-896 9-896 #9~896 9-896 9-896 49-896 9-896 9-896 
#9-896 9-896 9-896 #9-896 9-896 9-896 49-896 9-896 9-896 
#9-896 9-896 9-896 #9~896 9-896 9-896 8 9-896 9-896 
#9-896 9-896 9-896 #9-896 9-896 9-896 #9-896 9-896 9-896 
#9-896 9-896 9-896 #9-896 9-896 9-896 49-896 9-896 9-896 
#9-896 9-896 9-896 #9-896 9-896 9-8 49-896 9-896 9-896 
#9-896 9-896 9-896 #9-896 9-896 9-896 #9~-896 9-896 9-896 
#3-896 9-896 9-896 #9-896 9-896 9-896 #9~-896 9-896 9-896 
#9~896 9-896 9-896 #9~-896 9-896 9-896 #9~-896 9-896 9-896 
#9-896 9-896 9-896 #9-896 9-896 9-896 #9-896 9-896 9-896 
#9-896 9-896 9-896 49-896 9-896 9-896 #9-896 9-896 9-896 
#9-896 9-896 9-896 #9-896 9-896 9-896 49-896 9-896 9-896 
#9-896 9-896 9-896 #9~896 9-896 9-896 49-896 9-896 9-896 
#9-896 9-896 9-896 #9-896 9-896 9-896 #9-8 9-896 9-896 
#9-896 9-896 9-896 #9-896 9-896 9-896 49-896 9-896 9-896 
49-896 9-896 8 #9-896 9-896 9-896 9-896 9-896 
#9-896 9-896 9-896 #9-896 9-896 9-896 49-896 9-896 9-896 
#9-896 9-896 9-896 #9-896 9-896 9-896 #9-896 9-896 9-896 
#9-896 9-896 9-896 #9-896 9-896 9-896 #9-896 9-896 9-896 
#9-896 9-896 9-896 #9-8 9-896 9-896 #9~-896 9-896 9-896 
#9-896 9-896 9-896 #9-896 9-896 9-896 49-896 9-896 9-896 
#9-896 9-896 9-896 #9-896 9-896 9-896 #9-896 9-896 9-896 
#9-896 9-896 9-896 #9-896 9-896 9-896 #9~-896 9-896 9-896 
#9-896 9-896 9-896 #9-896 9-896 9-896 #9~-896 9-896 9-896 
#9-896 9-896 9-896 49-896 9-896 9-896 49-896 9-896 9-8 

#9-896 9-896 9-896 #9~-896 9-896 9-896 8 9-8 9-896 
#9-896 9-896 9-896 896 9-896 9-896 #9-896 9-896 9-896 
49-896 9-896 9-896 #9-896 9-896 9-896 49-896 9-896 9-896 
#9-896 9-896 9-896 #9-896 9-896 9-896 #9~-896 9-896 9-896 
#9-896 9-896 9-896 #9~-896 9-896 9-896 #9-896 9-896 9-896 
#9-896 9-896 9-896 49-896 9-896 9-896 8 9-896 9-896 
#9-896 9-896 9-896 49-896 9-896 9-896 #9-896 9-896 9-896 
#9-896 9-896 9-896 #9-896 9-896 9-896 #9-896 9-896 9-896 
#9-896 9-896 9-896 49-896 9-896 9-896 #9-896 9-896 9-896 
#9-896 9-896 9-896 #9-896 9-896 9-896 8 9-896 9-896 
#9-896 9-896 9-896 896 9-896 9-896 #9-896 9-896 9-896 
#9-896 9-896 8 #9-896 9-896 9-8 9-896 9-896 
49-896 9-896 9-896 #9~-896 9-896 9-896 49-896 9-896 9-896 
49-896 9-896 9-896 49-896 9-896 9-896 #9-896 9-896 9-896 
#9-896 9-896 9-896 49-896 9-896 9-896 #9~-896 9-896 9-896 
#9-896 9-896 8 49-896 9-896 9-896 #9-896 9-896 9-896 
#9-896 9-896 9-896 #9-896 9-896 9-896 #9-896 9-896 9-896 
49-896 9-896 9-896 49-896 9-896 9-896 9-896 9-896 
#9-896 9-896 9-896 #9-896 9-896 9-896 #9-896 9-896 9-896 
49-896 9-896 9-896 49-896 9-896 9-896 #9-896 9-896 9-896 
49-896 9-896 9-896 #9-896 9-896 9-896 #9-896 9-896 9-896 

89 9-896 #9-896 


#9-896 9-896 9-896 #9-896 9-896 
CORDON 033142 17-5350 17-5359 17-5522 17-5618 417-5635 





CKF PBAO CREATED BY MACRO ON 18=SEP=79 AT 13:50 cmt 5 


SYMBOL CROSS REFERENCE SEQ 0176 

SYMBOL VALUE REFERENCES ‘ 

CORFLG 033124 17-5375 17-5388 17=5402 17-5416 17-5432 17-5446 17=5461 17-5474 17-5490 
17=5504 17-5518 17-5553 = * 17-5569 17-5576 17-5615 #17-5620 

CORINT 033136 17-5353 17-5571 17-5578 #17-5623 

CORME S 037665 17-5366 #18-5933 

CORSUB 032642 17-5369 17-5382 17-5396 17-5410 17-5426 17=5440 17-5456 17-5469 17-5484 
17-5498 17-5512 = #17=5553 

CORTMP 033126 17-5584 17-5586 17-5603 17-5621 

CORTRP 033140 17-5568 #17-5628 

CORTV 032740 17-5568 #17-5576 

CORTVO 033102 17-5598 17-5601 17-5606 #17-5610 

CORTV1 033106 17-5577 #17-5612 

COR1 032010 17-5346 417-5352 

COR10 032432 #17-5468 

COR11 032476 #17-5483 

COR12 032536 #17-5497 

COR13 032576 #17-5511 

COR2 032034 17-5352 3917-5357 

CORS5. 032050 17-5349 17-5355 #17-5362 

COR33 032062 17-5364 #17-5367 

CORS 032122 #17-5381 

CORS 032162 #17-5395 

COR6 032222 #17-5409 

COR7 032266 #17-5425 

COR8 032326 #17-5439 

CORO 032372 #17-5455 

CPSPUR 036712 11-1572 11-1584 11-1737 17-5354 17-5358 #&17-5847 17-5891 

CPTWwO 036730 #17-5858 17-5892 

CR = 000015 47-87 17-5651 17-5651 

CRLF = 000200 #7-875 #7-877 9-904 9-904 17-5651 17-5651 18-5913 18-5913 18-5933 
18-5933 18-5942 18-5944 18-5946 18-5948 18-5950 18-5952 18-5954 18-5956 
18-5958 18-5960 18-5962 18-5964 18-5991 18-5993 18-6 18-6002 18-6003 
1 18-6006 18-6008 18-6010 18-6017 18-6019 18-6020 18-6022 
18-6028 18-6030 18-6050 18-6052 18-6064 18-6066 18-6071 18-6073 18-6080 
18-6082 18-6102 18-6104 18-6114 18-6116 18-6121 18-6123 18-6135 18-6137 
18-6139 18-6141 18-6143 18-6144 18-6146 18-6147 18-6149 18-6151 18-6153 
18-6155 18-6167 18-6169 18-6171 18-6173 18-6175 18-6177 18-6179 18-6180 
18-6182 18-6183 18-6185 18-6187 18-6188 18-6190 18-6192 18-6194 18-6217 
18-6221 18-6223 18-6225 18-6233 18-6235 18-6237 18-6239 18-6241 18-6243 
18-6341 18-6341 18-6367 18-6367 18-6367 18-6368 18-636 18-6368 18-6369 
18-6369 18-6369 18-6370 18-6370 18-6370 18-6372 18-6372 18-6375 18-6375 
18-6376 18-6376 18-6376 18-6376 18-6377 18-6377 18-6378 18-6378 18-6378 
18-6378 18-6379 18-6379 18-6380 18-6380 18-6380 18-6380 18-6381 18-6381 
18-6382 18-6382 18-6383 18-6383 18-6384 18-6384 18-6416 18-6419 18-6421 
18-6423 18-6427 

DDDDON 017054 12-2601 413-2697 

DDD1 016124 #12-2520 

DDD2 016200 #12-2531 

DDD3 016254 #12=-2542 

DDDS 016330 #12-2553 

DDD5 16404 #12-2564 

DDD6 016460 #12-2577 


DDD7 016534 #12-2589 


CKF PBAO 
SYMBOL ie 


SY 
DDISP 
DF 1 


RARASLSO 
rnin ntnn nn nn nn na 


nn 
em ed ad od I) 3 


No-— ~~ St Ys 1 1 ED 
Cc NO WEWNHO N 
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070125 
070175 


070175 


070125 


877 


ae 


#19-6670 
#19-6771 
#19-6772 


#19-6778 
#19-6671 
#19-6779 
#19-6706 
#19-6707 
#19-6708 
#19-6709 
#19~6710 

19-6733 
#19-6711 
#19-6712 
#19-6672 
#19-6713 
#19-6714 
#19-6715 
#19-6716 
#19-6717 
#19-6718 
#19-6719 


#19-6722 
#19-6723 
#19-6724 


#19-6731 
#19-6732 


#19-6735 
419-6736 
#19-6675 
#19-6737 


9-903 
19-6665 
19-6674 


19-6711 
19-6732 


19-6721 
19-6742 





PAGE 6 
CREF 


19-6666 
19-6675 


19-6712 
19-6733 


19-6722 
19-6743 


19-6667 19-6668 19-6669 
19-6676 

19-6713 19-6714 19-6715 
19-6724 19-6725 19-6727 
19-6745 19-6748 


SEQ 0777 
19-6670 19-6671 
19-6728 19-6729 
19-6738 19-6739 







J 14 
























CKFPBAO CREATED BY MACRO ON 18-SEP-79 AT 13:50 = PAGE 7 
SYMBOL CROSS REFERENCE CREF SEQ 0178 
SYMBOL VALUE REFERENCES 

DF151 = 070221 9-896 -#19-6738 

DF152 = 070221 9-896  —-#19-6739 

DF153 = 070221 9-896 #196740 

0F154 = 070221 9-8% —-#19-6741 

DF155 = 070221 9-896  —-#19-6742 

DF156 = 070221 9-896 «#196743 

DF157 = 070151 9-896 #196744 

DFI6. = =-:070056 9-896  -#19-6676 

DF160 = 070221 9-896 «#196745 

DF161 = 070151 9-896 #196746 

DF162 = 070151 9-896  —-#19-6747 

DF163 = 070221 9-896 -#19-6748 

DF164 = 070151 9-896  —-#19-6749 

DF165 =—-070331 9-896, 19-6780 19-6781 196782 19-6783 196784 19-6785 19-6786 19-6787 
DF166 = 070331 “896 #19-6781 

DF167 = 070331 9-896  -#19-6782 

DFI7 070106 9-896  #19-6677 

DF170 = 070331 9-896  -#19-6783 

DF171. = 070331 9-896 -#19-6784 

DFI72 = 070331 9-896  -#19-6785 

DF173. = 070331 9-896  -#19-6786 

DF174 = 070331 9-896  -#19-6787 

DF175 = 070331 9-896 -#19-6788 

DF176 ©=—--070363 9-896, #196789 19-6790 19-6791 19-6792 1946793 1946794 1946795 19-6796 
DF177—- =: 070363 9-896 -#19-6790 

DF2 070074 9-896 #196664 

DF 20 070115 9-896 #19-6678 19-6679 ~—s- 19-6680 
DF200 = 070363 9-896  -#19-6791 

DF201 = 070363 9-896  -#19-6792 

DF202 = 070363 9-896  —-#19-6793 

DF203 = 070363 9-896  —-#19-6794 

DF204 = 070363 9-896  —-#19-6795 

DF205 = - 070363 9-896  —-#19-6796 

DF206 = 070363 9-896  —-#19-6797 

DF207 ~—-s«(070425 989% #196799 19-6800 19-6805 19-6807 19-6808 19-6809 19-6810 19-6811 
DF21. = = 070115 9-896  -#19-6679 

DF210 070415 9-896 -#19-6798 

DF211 = 070425 9-896 -#19-6800 

DF212, 070451 9-896 #19-6801 19-6802 19-6803 19-6804 19-6813 19-6814 19-6815 19-6816 
DF213. = 070451 9-896 #196802 

DF214 = = 070451 9-896 «#196803 

DF215 = 070451 9-896 «#196804 

DF216 © = 070425 9-896  —-#19-6805 

DF217~—Ss« 070501 9-896  -#19-6806 

DF22. = 070115 9-896  -# 19-6680 

DF220 = 070425 9-896 -#19-6807 

DF221 = 070425 9-896  -# 19-6808 

DF222 = 070425 9-896  #19-6809 


CKF PBAO 

SYMBOL CROSS REFERENCE 
SYMBOL ALUE 
DF223 == 070425 
DF224 = 070425 
DF225 = 070425 
DF226 = 070451 
DF227 == 070451 
DF 23 070125 
DF230 = 070451 
DF231 = 070451 
DF232 = 070451 
DF 233 070510 
DF 234 070525 
DF 235 070534 
DF236 == 070525 
DF237 == 070525 
DF 24 = 070125 
DF240 = 070525 
DF241 = 070510 
DF242 = 070525 
DF243 = 070510 
DF244 = 070510 
DF245 = 070510 
DF246 = 070151 
DF 247 070540 
DF 25 = 070125 
DF250 == 070540 
DF251 = 070540 
DF 252 070546 
DF 253 070552 
DF254 = 070552 
DF255 = 070552 
DF256 = 070552 
DF257 == 070552 
DF 26 = 070125 
DF260 = 070552 
DF261 = 070552 
DF262 = 070552 
DF263 = 070552 
DF264 = 070552 
DF265 = 070552 
DF266 = 070546 
DF 27 = 070125 
DF3 = 07005 
DF 30 = 070125 
DF 31 = 070125 
DF 32 = 070125 
DF 33 070151 
DF 34 = 070151 


CREATED BY MACRO ON 18-SEP-79 AT 13:50 


REFERt NCES 
9-896 


#19-6690 


19-6682 
19-6695 
19-6734 


19-6825 
19-6822 


19-6831 


19-6846 
19-6836 
19-6845 


19-6690 
19-6716 
19-6749 


PAGE 8 
CREF 


19-6683 
19-6696 
19-6735 


19-6827 
19-6823 


19-6832 


19-6837 


19-6691 
19-6717 


K 14 


19-6684 
19-6697 
19-6736 


19-6828 
19-6824 


19-6838 


19-6692 
19-6718 


19-6685 
19-6698 
19-6737 


19-6829 
19-6826 


19-6839 


19-6700 
19-6719 


19-6686 
19-6699 


19-6840 


19-6701 


19-6723 


19-6687 
19-6706 


19-6841 


19-6702 
19-6726 





19-6688 
19-6797 


19-6842 


19-6703 
19-6744 


L 14 


CKF PBAO CREATED BY MACRO ON 18-SEP-79 AT 13:50 PAGE 9 

SYMBOL CROSS REFERENCE CREF SEQ 0180 

SYMBOL VALUE REFERENCES 

CF 35 = 070151 9-896 #19-6691 

DF 36 = 070151 9-896 #19-6692 

DF 37 = 070125 9-896 #19-6693 

DF4 = 070056 9-896 #19-6666 

DF4O = 070125 9-896 419-6694 

DF41 = 070125 9-896 #19-6695 

DF42 = 970125 9-896 #19-6696 

DF43 = 070125 9-896 #19-6697 

DF44 = 070125 9-896 #19-6698 

DF45 = 070125 9-896 #19-6699 

DF 46 = 070151 9-896 #19-6701 

DF47 = 070151 9-896 #19-6702 

DFS = 07005 9-896 19-666 

DF 50 = 070151 9-896 #19-6703 

DFS1 = 070151 9-896 #19-6704 

DF52 = 070151 9-896 #19-6705 

DF53 070245 9-896 19-6750 19-6751 19-6752 19-6753 19-6754 19-6755 19-6756 19-6757 
19-6758 19-6759 19-6760 19-6761 19-6762 

DF 54 = 070245 9-896 19-675 

DF55 = 070245 9-896 #19-6752 

DF 56 = 070245 9-896 #19-6753 

DF57 = 070245 9-896 #19~6754 

DF6 = 070056 9-896 #19-6668 

DF 60 = 070245 9-896 #19-6755 

DF 61 = 070245 9-896 #19-6756 

DF 62 = 070245 9-896 #19-6757 

DF63 = 070245 9-896 #19-6758 

DF 64 = 070245 9-896 #19-6759 

DF65 = 070245 9-896 #19-6760 

DF 66 = 070245 9-896 #19-6761 

DF 67 = 070245 9-896 #19-6762 

DF7 = 070056 9-896 #19-6669 

DF 70 070277 9-896 #19-6763 19-6764 19-6765 19-6766 19-6767 19-6768 19-6769 19-6770 

: 19-6771 19-6772 19-6773 19-6774 19-6775 19-6776 19-6777 19-6778 19-6779 

DF 71 = 070277 9-896 #19-6764 

DF 72 = 070277 9-896 #19-6765 

DF 73 = 070277 9-896 #19-6766 

DF 74 = 070277 9-896 #19-6767 

DF75 = 070277 9-896 #19-6768 

DF 76 = 070277 9-896 #19-6769 

DF 77 = 070277 9-896 #19-6770 

DH1 066262 9-896 #18-6455 18-6458 18-6459 18-6460 18-6461 18-6462 18-6463 18-6464 
18-6465 18-6466 18-6467 18-6468 18-6469 18-6471 18-6475 18-6476 18-6477 
18-6478 18-6479 18-6480 18-6481 18-6482 18-6483 18-6484 18-6485 8-64 
18-6487 18-6488 18-6489 18-6490 18-6491 18-6492 18-6493 18-6494 18-6495 
18-6496 18-6497 18-6498 18-6499 18-6500 18-6501 18-6502 18-6503 18-6511 
18-6512 18-6513 18-6514 18-6518 18-6521 18-6529 18-6530 18-6531 18-6532 
18-6539 18-6541 18-6542 18-6544 18-6545 18-6546 18-6547 18-6548 18-6549 
18-6550 18-6551 18-6552 18-6553 18-6554 18-6555 18-6556 18-6557 18-6558 
18-6559 18-6560 18-6561 18-6562 19-6564 19-6565 19-65 19-6567 9-6568 
19-6569 19-6570 19-6571 19-6572 19-6573 19-6574 19-6575 19-6648 1 9 
19-6650 19-6651 19-6652 19-6653 19-6654 19-6655 19-6656 19-6657 19-6658 


m 14 


CKF PBAO CREATED BY MACRO ON 18-SEP-79 AT 13:50 PAGE 10 

SYMBOL CROSS REFERENCE CREF SEQ 0181 

SYMBOL VALUE REFERENCES 

DH10 = 066262 9-896 #18-6463 

DH100 = 066262 9-896 #19-6567 

DH101 = 066262 9-896 #19-6568 

DH102 == 066262 9-896 #19-6569 

DH103 = 066262 9-896 #19-6570 

DH104 = 066262 9-896 #19-6571 

DH105 = 066262 9-896 #19-6572 

1 = 066262 9-896 #19-6573 

DH107 = 066262 9-896 #19-6574 

DH11 = 066262 9-896 #18-6464 

DH110 = 066262 9-896 #19-6575 

DH111 = 066262 9-896 #18-6500 

DH112 = 066262 9-896 #18-6501 

DH113 = 066262 9-896 #18-6502 

DH114 = 066262 9-896 #18-6503 

DH115 066623 9-896 #18-6504 18-6506 18-6507 18-6508 18-6509 18-6510 18-6515 18-6516 
18-6517 18-6519 18-6520 18-6522 18-6523 18-6524 18-6525 18-6526 18-6527 
18-6528 18-6533 18-6534 18-6535 18-6536 18-6537 18-6538 18-6540 18-6543 
19-657 19-6577 19-6578 19-6579 19-6580 19-6581 19-6582 19-6583 19-6584 
19-6585 19-6586 19-6587 19-6588 19-6589 19-6590 19-6591 19-6592 19-6593 

DH116 == 066623 9-896 #18-6506 

DH117 = 066623 9-896 #18-6507 

DH12 = 066262 9-896 #18-6465 

DH120 = 066623 9-896 #18-6508 

DH121 = 066623 9-896 #18-6509 

DH122 = 066623 9-896 #18-6510 

DH123 = 066262 9-896 #18-6511 

DH124 = 066262 9-896 #18-6512 

DH125 = 066262 9-896 #18-6513 

DH126 == 066262 9-896 #18-6514 

DH127 == 066623 9-896 #18-6515 

DH13 = 066262 9-896 #18-6466 

DH130 = 066623 9-896 #18-6516 

DH131 = 066623 9-896 #18-6517 

DH132 == 066262 9-896 #18-6518 

DH133 = 066623 9-896 #18-6519 

DH134 = 3 9-896 #18-6520 

DH135 = 066262 9-896 #18-6521 

DH136 §== 066623 9-896 #18-6522 

DH137 == 066623 9-896 #18-6523 

DH14 = 066262 9-896 #18-6467 

DH140 39 = 066623 9-896 #18-6524 

DH141 == 066623 9-896 #18-6525 

DH142 = = 066623 9-896 #18-6526 

DH143 = 066623 9-896 #18-6527 

DH144 == 066623 9-896 #18-6528 

DH145 = 066262 9-896 #18-6529 

DH146 = =_: 066262 9-896 #18-6530 

DH147 = =_ 066262 9-896 #18-6531 

DH15 = 066262 9-896 418-6468 

DH150 = 066262 9-896 #18-6532 

DH151 = 066623 9-896 #18-6533 


N 14 


CKF PBAO CREATED BY MACRO ON 18-SEP-79 AT 13:50 PAGE 11 
CREF SEQ 0182 


SYMBOL CROSS REFERENCE 
SYMBOL VAL 


UE REFERENCES 

DHISe = 066623 9-896 -#18-6534 
DHIS3 = 3 9-896 #18-6535 
D154 = 066623 9-896 #186536 
DH1SS == 066623 9-896 #18-6537 
DH156 == 066603 9-896 #18-6538 
DH157 = 06626¢ 9-896  #18-6539 
DHI6 = = 066262 9-896  #18-6469 
DHI60 = 3 9-896  #18-6540 
DH161 = 066262 9-896  —-#18-6541 
DH162 = 066262 9-896 #186542 
DH163 = 066623 9-896 #186543 

164 = 066262 9-896 #186544 
DHI65 = = 066623 9-896 #19-6576 
DH166 = 066623 9-896 -#19-6577 
DH167 = 066623 9-896  #19-6578 
DH17 066413 9-896 #18-6470 
DH170 = 066623 9-896 #19-6579 
DH171 = 066623 9-896 #19-6580 
DH172 = 066623 9-896 #19-6581 
DH173 = 066623 9-896  #19-6582 
DH174 = 066623 9-896  -#19-6583 
DH175 = 066623 9-896 19-6584 
DH176 = 066623 9-896  -#19-6585 
DH177 = 066623 9-896 #19-6586 
DH2 066352 9-896  #18-6457 119-6647 
DH20 = (066262 9-896  #18-6471 
DH200 = 066623 9-896 #196587 
DH201 = 066623 9-896 #196588 
DH202 = 066623 9-896  #19-6589 
DH203 = 066623 9-896 #196590 
DH204 = 066623 9-896  —-#19-6591 
DH205 = 066623 9-896 #19-6592 
DH206 = 066623 9-896 #19-6593 
DH207 «(066762 9-896 #19-6595 19-6599 «19-6600 —-19-6601 19-6602 
DH21 066466 9-896 #186472 
DH210 067052 9-896  #19-6597 19-6598 ~=—-:19-6603 ~—-«119-6606 19-6608 19-6610 
DH211 = 067052 9-896  #19-6598 
DH212 = 06676 9-896 #19-6599 . 
DH213 = 066762 9-896  #19-6600 
DH214 = 066762 9-896 #19-6601 
DH215 = 066762 9-896  #19-6602 
DH216 = 067052 9-896 #196603 
DH217 (067113 9-896 #196604 
DH22 06655 9-896 #186474 
DH220 = (066722 9-896 - 19-6594 19-6607 19-6609 
DH221 = 067052 9-896  #19-6606 
DH222 = 06672 9-896  #19-6607 
DH223 = 067052 9-896 #196608 
DH224 == 066722 9-896 #196609 
DH225 = 067052 9-896 #196610 
DH22 067166 9-896 #19-6611 19-6615 
DH227 (067255 9-896 —-#19-6613 19-6616 = 19-6617 


CKF PBAO 
SYMBOL CROSS REFERENCE 
SYMBOL VALUE 
DH23 = 06626 
DH230 9 = 067166 
DH231 == 067255 
DH232 0 = 067255 
DH235 734 
DH2 067405 
DH235 067473 
DH2 067533 
DH237 = =_: 067405 
DH24 = 06626 
DH240 067621 
DH241 = 06734 
DH242 = 067621 
DH243 = 067344 
DH244 = =_-(067344 
DH245 = 067344 
DH246 == 06626 
DH247 067711 
DH25 = 066262 
DH250 067756 
DH251 = 067756 
DH252 = 066352 
DH253 = 066262 
DH254 = 066262 
DH255 = 066262 
DH256 = 066262 
DH257 = 066262 
DH26 = 066262 
DH260 = 066262 
DH261 = 066262 
DH262 == 066262 
DH263 == 066262 
264 = 066262 
DH265 = 066262 
DH266 070016 
DH27 = 066262 
DH3 = 066262 
DH30 = 066262 
DH31 = 066262 
DH32 = 066262 
DH33 = 066262 
DH34 = 066262 
DH35 = 066262 
DH36 = 066262 
DH37 = 066262 
DH4 = 066262 
DH40 = 066262 
DH41 = 066262 
DH42 = 066262 
DH4 3 = 066262 
DH44 = 066262 
DH45 = 066262 


CREATED BY MACRO ON 18-SEP-79 AT 13:50 


REFERENCES 
9-896 ” 


8 18-6475 
9-896 #196615 
9-896 #19-6616 
9-896  -#19-6617 
9-896  #19~6620 
9-896 -#19-6622 
9-896  —-#19-6625 
9-896 -#19-6628 
9-896  -#19~6632 
9-896  -#18-6477 
9-896  —-#19-6634 
9-896 #19-6638 
9-896 «#196639 
9-896  -#19-6640 
9-896 —-#19-6641 
9-896  —-#19-6642 
9-896  —-#18-6494 
9-896 «#196643 
9-896  #18-6478 
9-896 #1 4 
9-896 #1 
9-896  -#19-6647 
9-896 -#19-6648 
9-896  —-#19-5649 
9-896 #196650 
9-896 «#196651 
9-896 -#19-6652 
9-896 «#186479 
9-896 «#196653 
9-896 «#196654 
9-896  #19-6655 
9-896 «#196656 
9-896  -#19-6657 
9-896  - #19-6658 
9-896 -#19-6659 
9-896  -#18-6480 
9-896  —«#18-6458 
9-896 «#186481 
9-896  -#18-6482 
9-896 -#18-6476 
9-896  —-#18-6483 
9-896 «#18 -6484 
9-896 #18 -6485 
9-896 #18 -6486 
9-896  -#18-6487 
9-896 #18 -6459 
9-896 «#18 -6488 
9-896 #18 -6489 
9-896  -#18-6490 
9-896  —«#18-6491 
9-896 «#186492 
9-896 #18 -6493 


19-6638 
19-6632 


19-6639 


19-6645 


PAGE 12 
CREF 


19-6640 


B 1 


19-6641 


19-6642 





CKF PBAO 

SYMBOL CROSS REFERENCE 
SYMBOL VALUE 
DK46 = 0662 
DH47 = 066262 
DHS = 066262 
DH5O = 066262 
DH51 = 066262 
DH52 = 066262 
DH53 = 066262 
DH5S4 = 066262 
DH55 = 066262 
DH56 = 066262 
DH57 = 066262 
DH6 = 066262 
DH60 = 066262 
DH61 = 066262 
DH62 = 066262 
DH63 = 066262 
DH64 = 066262 
DH65 = 066262 
DH66 = 066262 
DH67 = 066262 
DH7 = 066262 
DH70 = 066262 
DH71 = 066262 
DH72 = 066262 
DH73 = 066262 
DH74 = 066262 
DH75 = 066262 
DH76 = 066262 
DH77 = 06626 
DISPLA 001142 
DISPRE 174 
DIVDSU 016614 
DIVDT 017044 
DIVF SU 015674 
DIVFT 016110 
DSWR = 177570 
DT1 070604 
DT10 = 

DT100 == 071120 
DT101. == 071120 
01102 == 071120 
DT103 == 071120 
DT104 == 071120 
DT105 = = 071120 
DT106 == 071120 
DT107, —s_ = 071120 
DT11 = 

DT110 = =: 071120 
DT111. = = 070772 
D1112. = = 070772 


CREATED BY MACRO ON 18-SEP-79 AT 13:50 


REFERENCES 
9-896 #1 


8 8-6495 
9-896 #18-6496 
9-896 #18-6460 
9-896 #18-6497 
9-896 #18-6498 
9-896 #18-6499 
9-896 #18-6545 
9-896 #18-6546 
9-896 #18-6547 
9-896 #18-6548 
9-896 #18-6549 
9-896 #18-6461 
9-896 #18-6550 
9-896 #18-6551 
9-896 #18-6552 
9-896 #18-6553 
9-896 #18-6554 
9-896 #18-6555 
9-896 #18-6556 
9-896 #18-6557 
9-896 #18-6462 
9-896 #18-6558 
9-896 #18-6559 
9-896 #18-6560 
9-896 #18-6561 
9-896 #18-6562 
9-896 #19-6564 
9-896 #19-6565 
9-896 #19-6566 

#8-890 *9-903 

#7~-889 903 
12-2521 12-2532 
13-2650 13-2659 
12-2275 12-2286 
12-2377 12-2388 
12-2465 12-2474 

#7-877 -890 
9-896 #19-6853 
19-6863 19-6864 
9-896 #19-6861 
9-896 #19-6968 
9-896 #19-6969 
9-896 #19-6970 
9-896 #19-6971 
9-896 #19-6972 
9-896 #19-6973 
9-896 #19-6974 
9-896 #19-6975 
9-896 #19-6862 
9-896 #19-6976 
9-896 #19-6898 
9-896 #19-6899 


*9-903 


12-2543 
13-2665 
12-2297 
12-2400 
#12-2505 
9-903 
19-6856 
19-6865 


PAGE 13 
CREF 


17-5645 


12-2554 
13-2677 
12-2309 
12-2411 


19-6857 
19-6866 


C1 


17-5647 


12-2565 
#13-2695 
12-2320 
#12-26448 


19-6858 
19-6867 


12-2578 12-2590 #13-2631 
12-2331 12-2342 12-2354 
19-6859 19-6860 19-6861 


12-2366 


19-6862 


CKF PBAO 

SYMBOL CROSS REFERENCE 
SYMBOL VALUE 
DT113. = 070772 
DT114 == 070772 
DT115 071044 
DT116 = =_- 071044 
DT117.—s_ = 071044 
DT12 = 070604 
DT120 == 071044 
DT121 == 071044 
DT122 == 071044 
DT123. = 070772 
DT124 = 070772 
DT125 = 070772 
DT126 = =_- 070772 
DT127 = = : 071044 
DT13 = 070604 
DT130 = 071044 
DT131. = = 071044 
DTi32.0=—- = 070772 
DT133. = 071044 
DT134 == 071044 
DT135. == 070772 
DT136 «= =: 071044 
DT137 = =: 071044 
DT14 = 070604 
DT140 = 071044 
DT141 = 071044 
DT142.0— = 071044 
DT143 = 071044 
DT144 == 071044 
DT145 == 070772 
DT146 = =: 070772 
DT147 —_ = 070772 
DT15 = 07 
DT150. = = - 070772 
DT151 = = 071044 
DT152. = = 071044 
DT153 = = 071044 
DT154 == 071044 
DT155 == 071044 
DT156 == 071044 
DT157 = = 070772 
DT16 = 070604 
DT160 = 071044 
DT161 = 070772 
DT162 = 070772 
DT163 == 071044 
D1164 == 070772 
DT165 071206 


CREATED BY MACRO ON 18-SEP-79 AT 13:50 


REFERENCES 
9-896 


96 
19-6988 
19-6997 


#19-6900 
#19-6901 


19-6989 


19-6905 
19-6919 
19-6933 


19-6981 
19-6990 


PAGE 14 
CREF 


19-6906 
19-6921 
19-6934 


19-6982 
19-6991 





SEQ 0185 
19-6907 19-6908 19-6909 19-6914 19-6915 
19-6922 19-6923 19-6924 19-6925 19-6926 
19-6935 19-6936 19-6937 19-6939 19-6942 
19-6983 19-6984 19-6985 19-6986 19-6987 
19-6992 19-6993 19-6994 19-6995 19-6996 





CKF PBAO CREATED BY MACRO ON 18-SEP-79 AT 13:50 PAGE 15 

SYMBOL CROSS REFERENCE CREF SEQ 0186 

SYMBOL VALUE REFERENCES 

DT166 «== - 071206 9-896 9-6981 

DT167 = = 071206 9-896 #19-6982 

D117 070670 9-896 #19-6868 

DT170 = =: 071206 9-896 #19-6983 

DT171 == 071206 9-896 #19-6984 

DT172 = = 071206 9-896 #19-6985 

DT173. = 071206 9-896 9 

DT174 == 071206 9-896 #19-6987 

DT175. = = 071206 9-896 #19-6988 

DT176 = =: 071206 9-896 #19-6989 

DT177,—s_ = : 071206 9-896 #19-6990 

DT2 9-896 #19-6855 

DT20 070710 9-896 #19-6869 

DT200 = 071206 9-896 #19-6991 

DT201 = 071206 9-896 #19-6992 

DT2C2 = 071206 9-896 #19-6993 

DT203 = 071206 9-896 #19-6994 

DT206 = 071206 9-896 #19-6995 

DT205 = 071206 9-896 #19-6996 

DT206 = 071206 9-896 #19-699 

DT207 071316 896 19-7001 19-7004 19-7011 19-7013 19=7014 19-7015 19-7016 19-7017 
19-7018 19-702 

DT21 070732 -896 19-687: 

DT210 071274 9-896 419-6999 19-7022 

DT211 = 071316 9-896 #19-700 

DT212 071370 9-896 #19-7005 19-7008 19-7009 19-7010 19-7019 19-7020 19-7021 

DT213 = = 071370 9-896 #19-700 

DT214 = 071370 9-896 #19-7009 

DT215 = 071370 9-896 #19-7010 

DT216 == 071316 9-896 #19-7011 

DT217 071452 9-896 #19-7012 

DT22 070754 9-896 #19-6871 

DT220 = 071316 9-896 #19-7013 

DT221 = 071316 9-896 #19-7014 

DI222.0 = 071316 9-8 #19-7015 

DT223 = 071316 9-896 #19-7016 

DT224 = 071316 9-896 419-7017 

DT225 = 071316 9-896 #19-7018 

DT226 = =_: 071370 9-896 #19-7019 

DI1227. Ss = - 071370 9-896 #19-7020 

DT23 070772 9-896 #19-6872 19-6874 19-6875 19-6876 19-6877 19-6878 19-6879 19-6880 
19-6881 19-6882 19-6883 19-6884 19-6885 19-6886 19-6887 19-6888 19-6889 
19-6890 19-689 19-6892 19-6893 19-6894 ~~ 19-6895 19-6896 19-6897 19-6898 
19-68 19-6 19-6901 19-6910 19-6911 19-6912 19-6913 19-6917 19-6920 
19-6928 19-6929 19-6930 19-6931 19-6938 19-6940 19-6941 19-6943 

DT230 == 071370 9-896 #19-7021 

DT231 == 071274 9-896 #19-7022 

DI232.0 = - 071316 9-896 #19-7023 

D233 071472 9-896 #19-7029 19-7040 19-7042 19-7043 19-7044 

DT234 071526 9-896 #19-7033 19-7037 19-7038 19-7039 19-7041 

01235 071546 9-896 #19-7035 

DT236 = =_:(071526 9-896 #19-7037 





“epee. ume teh nih sa telat lenin ie ee ee ee. eee hae es eee 


CKFPBAO CREATED BY MACRO ON 18-SEP-79 AT 13:50 PAGE 16 

SYMBOL CROSS REFERENCE CREF SEQ 0187 

SYMBOL VALUE REFERENCES 

D1237_ = 071526 9-896  #19-7038 

DT24 = = 070772 9-896 #19-6875 

DT240 = 071526 9-896 - #19-7039 

DT241 = = 071472 9-896  #19=7040 

DT242 = 071526 9-896 = #19=7041 

DT243 = 071472 9-896  -#19-7042 

DT244 = 071472 9-896  —-#19-7043 

DT245 = 071472 9-896  —-#19-7044 

DT246 = 070772 9-896  —-#19-6892 

DT247 =: 071560 9-896  —- #19-7045 

DT25 070772 9-896  #19-6876 

DT250 =: 071576 9-896 #19-7046 =: 19-7047 

D1251 = 071576 9-896  —- #19-7047 

DT252 «071610 9-896  #19-7049 19-7066 

DT253 =: 071622 9-896 19-7051 19-7055 19-7056 19-7057 19-7058 19-7059 19-7060 19-7061 
19-7062 19-706 19-7064 | 

DT254 = 071622 9-896 19-7055 

DT255 = 071622 9-896  _ #19-7056 

DT256 = = 071622 9-896 #19-7057 

DI257 = 071622 9-896 - #19-7058 

D126 = = 070772 9-896 -#19-6877 

DT260 = 071622 9-896  #19-7059 

DT261 = 071622 9-896 -#19-7060 

DT262 = 071622 9-896 -#19-7061 

DT263 = 071622 9-896  - #19-7062 

DT264 = 071622 9-896  - #19-7063 

DT265 = 071622 9-896 —- #19-7064 

DT266 © = 071610 9-896 - #19-7066 

DI27 = 070772 9-896  - #19-6878 

DT3. = =: 0706 9-896  - #19-6856 

DT30. = =: 070772 9-896 - #19-6879 

D131. = = 070772 9-896  #19-6880 

D132. = = 070772 9-896  —- #19-6874 

D133. = 070772 9-896  #19-6881 

D134 = = 070772 9-896  - #19-6882 

D135 = = (070772 9-896  - #19-6883 

D136. = = 070772 9-896  - #19-6884 

D137, =: 076772 9-896 - #19-6885 

DI4 = 0706 9-896 - #19-6857 

D140 == 070772 9-896  - #19-6886 

D141 = = 070772 9-896 -#'19-6887 

D142 = = 070772 9-896 #19-6888 

D143 = = 070772 9-896  #19-6889 

DI44 = 070772 9-8 #19-6890 

DI45 = = 070772 9-896  —-#19-6891 

D146 = = 070772 9-896  —- #19-6893 

DI47 = = 070772 9-896 «#196894 

DT5 = 07 9-896  #19-6858 

D150. = =: 070772 9-8 #19-6895 

d151 == 070772 9-896 19-6896 

D152. = 070772 9-896  —-#19-6897 

D153 071120 9-896  —-# 19-6944 19-6948 = 19-6949 =: 19-6950 19-6951 119-6952. 196953 19-6954 





CKF PBAO 
SYMBOL CROSS REFERENCE 
SYMBOL VALUE 
D154 = 071120 
DT55 = 071120 
DTS6 = 071120 
DT57 = 071120 
DT6 = 0706 
DT60 = 071120 
DT61 = 071120 
DT62 = 071120 
D163 = 071120 
DT64 = 071120 
DT65 = 071120 
DT66 = 071120 
D167 = 071120 
DT7 = 07 
DT70 = 071120 
DT71 = 071120 
DT72 = 071120 
DT73 = 071120 
D174 = 071 1 20 
DT75 = 071120 
DT76 = 071120 
D177 = 071120 
EEEDON 020064 
EEE1 017060 
EEE10 17454 
EEE11 017510 
EEE12 017544 
EEE13 017600 
FEE2 017114 
EEE3 017150 
EEES 017204 
FEES 017240 
EEE6 017274 
EEE7 017330 
EEE8 7 
EE9 17420 
EMTVEC = 30 
EM1 037724 
—M10 040543 
EM100 53701 
—M101 053764 
EM102 54160 
EM103 054354 
EM104 054466 
EM105 054633 
EM106 054742 
EM107 055051 
—M11 065 


CREATED BY MACRO ON 18-SEP-79 AT 13:50 
REFERENCES 
19 


055160 


955 


#19-6962 
419-6963 
#19-6964 
#19-6965 
#19-6966 
#19-6967 
#13-2942 


#18-6194 


6 15 





PAGE 17 
CREF 


SEQ 0188 
19-6957 19-6958 19-6959 19-6960 19-6961 19-6962 19=6963 
19-6966 19-6967 19-6968 19-6969 19-6970 19-6971 19-6972 
19-6975 19-6976 
9-903 
















055437 


y_ MACRO ON 18-SEP-79 AT 13:50 


CKFPBAO _ CREATED B 

SYMBOL CROSS REFERENC 

SYMBOL VALUE REF ERENCES 
mil) (043775 9-896 
EMI12 044052 9-896 
EMI13 044130 9-896 
EM114 42 9-896 
EMI15 044265 9-896 
EMI16 044343 9-896 
EMI17 044422 9-896 
EM12 940757 9-896 
EM120 044560 9-896 
EMI121 044716 9-896 
EMI22 045053 9-896 
EM123 045210 9-896 
EM124 045266 9-896 
EM125 534 9-896 
EM126 = 045423 9-896 
EM127 045502 9-896 
EM13 1066 9-896 
EM130 045560 9-896 
EM131 045637 9-896 
EM132 045775 9-8 
EM133 046133 9-896 
EM134 046271 9-896 
EM135 046426 9-896 
EM136 © 046563 9-896 
EM137 046720 9-896 
EM14 041202 9-896 
EM140 ? 9-896 
EM141 = 043775 9-896 
EM142 = 044052 9-896 
EM143 047075 9-8 
EM144 047153 9-896 
EM145 047232 9-896 
EM146 047377 9-896 
EM147 047544 9-896 
EM15 041314 9-896 
EM150 0477110 9-896 
EM151 050054 9-896 
EM152 050142 9-896 
EM153 = 045210 9-896 
EM154 = 045266 9-896 
EM155 050231 9-896 
EM156 =»: 050307 9-896 
EM157 050366 9-896 
EM16 041426 9-8 
EM160 050533 9-896 
EM161 050671 9-896 
EM162 051036 9-896 
EM163 =: 051202 9-896 
EM164 051337 9-8 
EM165 055270 9-896 
M166 «=—-055354 9-896 


#18-5958 


#18-6090 
#18-6092 


#18-6099 
#18-6100 
#18-6101 
#18-6102 
#18-6104 
#18-6112 
#18-5964 
418-6114 
#18-6117 
#18-6119 
#18-6121 
#18-6124 
#18-6208 
#18-6210 
#18-6212 


18-6078 
18-6079 


PAGE 18 
CREF 


SEQ 0189 | 











$$ 


CKF PBAQ CREATED BY MACRO ON 18-SEP-79 AT 13:50 PAGE 19 
CREF SEQ 0190 


SYMBOL CROSS REFERENCE 


SYMBOL VALUE REFERENCES 
EM17 041523 9-896 #18-5966 
EM170 055471 9-896 #18-6214 
—M171 055557 9-896 #18-6216 
EM172 055702 9-896 #18-6218 
EM173 055767 9-896 #18-6220 
EM174 056135 9-896 #18-6222 
EM175 0563503 9-896 #18-6224 
EM176 64 9-896 #18-6226 
EM177 056501 9-896 #18-6228 
E 037756 9-896 #18-5938 
=M20 041600 9-896 418-5967 
EM200 056564 9-896 #18-6230 
EM201 16 9-896 #18-6232 
EM202 056705 9-896 #18-6234 
EM203 057047 9-896 #18-6236 
EM204 057211 9-896 #18-6238 
EM205 057277 9-896 #18-6240 
EM206 057445 9-896 #18-6242 
EM207 057613 9-896 #18-6338 
EM21 041632 9-896 #18-5968 
EM210 057655 9-896 #18-6339 18-6385 
EM211 057717 9-896 #18-6340 
EM212 9-896 #18-6367 
EM213 060247 9-896 #18-6368 
EM214 060433 9-896 #18-6369 
EM215 060617 9-896 #18-6370 
EM216 9-896 #18-6371 
EM217 061165 9-896 #18-6374 
EM22 1 9-896 #18-5969 
061227 9-896 #18-6375 
EM221 061457 9-896 #18-6376 
EM222 061723 9-896 #18-6377 
EM223 062154 9-896 #18-6378 
EM224 062421 9-896 #18-6379 
EM225 062652 9-896 #18-6380 
EM226 063117 9-896 #18-6381 
EM227 063252 9-896 #18-6382 
EM23 041745 9-896 #18-5970 
EM230 063405 9-896 #18-6383 
EM231 063541 9-896 #18-6384 
EM232 9 = - 057655 9-896 #18-6385 
EM233 9-896 #18-6415 
EM234 063734 9-896 #18-6416 
EM235 064020 9-896 #18-6417 
EM236 066 9-896 #18-6418 
EM237 21 9-896 #18-6419 
EM24 042022 9-896 #18-5975 
EM240 9-896 #18-6420 
EM241 064241 9-896 #18-6421 
EM242 064 344 9-896 #18-6422 


#18-6424 


J 15 
CKF PBAO CREATED BY MACRO ON 18-SEP-79 AT 13:50 cot 20 


SYMBOL CROSS REFERENCE SEQ 0191 
SYMBOL VALUE REFERENCES 
EM245 064542 9-896 418-6426 
EM246 043405 9-896 #18-6016 
EM247 064624 9-896 #18-6429 
042120 9-896 #18-5977 18-5981 
EM250 064660 9-896 #18-6430 
EM251 064712 9-896 #18-6431 
EM252 064745 9-896 #18-6433 
EM253 36 9-896 #18-6439 
EMeS4 065122 9-896 #18-6440 
EM255 065207 9-896 #18-6441 
EM256 065275 9-896 #18-6442 
EM257 9-896 #18-6443 
EM26 042205 9-896 #18-5979 
065452 9-896 #18-6444 
EM261 065541 9-896 #18-6445 
EM262 065631 9-896 #18-6446 
EM263 065722 9-896 #18-6447 
7 9-896 #18-6448 
EM265 066074 9-896 #18-6449 
EM266 066161 9-896 #18-6451 
EM27 = 042120 9-896 #18-5981 
EM3 1 9-896 #18-5942 
EM30 042303 9-896 #18-5982 
—EM31 042355 9-896 #18-5984 
EM32 041770 9-896 #18-5971 
EM33 042422 9-896 #18-5986 
EM34 042445 9-896 #18-5987 - 
EM35 042477 9-896 #18-5991 
EM36 042552 9-896 #18-5993 
EM37 042620 9-896 #18-5995 
E 040117 9-896 #18-5944 
EM4O 042643 9-896 #18-5999 
EM41 042675 9-896 #18-6000 
EM42 042750 9-896 #18-6002 
EM43 043101 9-896 #18-6005 
EM44 043232 9-896 #18-6008 
EM4S 043300 9-896 418-6010 
EM46 043353 9-896 #18-6012 
£M47 9-896 #18-6017 
EMS 040224 9-896 #18-5946 
EMSO 043564 9-896 #18-6020 
EMS1 043637 9-896 #18-6022 
EMS2 043705 9-896 #18-6024 
EMS3 051535 9-896 #18-6127 
EMS4 9-896 #18-6128 
EMSS 051503 9-896 #18-6126 
EMS6 051616 9-896 #18-6135 
EMS7 051707 9-896 #18-6137 
EM6 040331 9-896 #18-5948 
EM60 051777 9-8 #18-6139 
EM61 052101 9-896 #18-6141 


EM62 052275 9-896 418-6144 


K 1 
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17-5354 


17-5352 


17-5801 417-5805 


17-§773 






$$ ———_—---——-_, 


CKF PBAO CREATED BY MACRO ON 18-SEP-79 AT 13:50 PAGE 22 
CREF SEQ 0193 


SYMBOL CROSS REFERENCE 
SYMBOL VAL 


UE REFERENCES 

ERTS 036642 17-5722 7-5812 = #17=5815 

ERTS 036654 17-5688 3 =#17-582 

FFF DON 020614 13-3001 #13-3095 

FFF. 020070 #13-295 

FFFO 020144 #13-2968 

FFFS 020220 #13-2979 

FFFG 020274 #13-2990 

FPSPUR 9-1014 9-1071 9-1193 9-1258 11=1326 11-1355 11-1381 11-1407 12=2189 
12-2212 14-3310 14-3561 14-3746 15-3998 #17-5832 17-5890 

FPVECT = 000244 #7-871 9-960 9-1014 9-1156 9-1180 9-1221 9=-1245 9=1287 11-1313 
12-2126 12-2176 13-3235 14-3487 14-3733 15-3985 17-5890 

GGDATO 01154¢ 9-1162 9-1186 9-119 9-1227 9-1251 9-1262 9-1293 11-1319 11-1330 
11-1361 11-1363 11-1365 11-1367 11-1369 11-1373 11-1375 11-1387 11-1389 
11-1391 11-1393 11-1395 11-1397 11-1399 11-1401 11-141 11-1416 11-1418 
11-1420 11-1422 11-1424 11-1426 11-1428 411-1430 

GGDONE 011660 11-1349 11-1363 11-1365 11-1367 11-1369 11-1373 11-1375 11-1389 11-1391 
11-1393 11-1395 11-1397 11-1399 11-1401 11-1416 11-1418 11-1420 11-1422 
11-1424 11-1426 11-1428 8911-1472 

010036 9-1156 #11-1351 

GGER1 010134 9-1168 #11-1365 11-1371 

GGER10 010646 9-1253 #11-1395 

GGER11 010714 9-1268 #11-1397 

GGER12 010762 9-1273 #11-1399 

GGER13 011030 9-1280 #11-1401 

GGER14 011076 9-1287 #11-1403 

GGER15 011174 9-1299 #11-1418 

GGER16 011242 9-1304 #11-1420 

GGER17 011310 11-1321 = #11-1422 

GGER18 011356 11-1336 = 11-1424 

GGER19 011424 11-1347 3911-1426 

GGER2 010202 9-1173 #11-1367 

GGER20 011472 11-1341 = #11-1428 

GGER3 010250 9-118 #11-1369 

GGER4 010316 9-1203 #11-1371 

GGERS 010320 9-1214 #11-1373 

GGER6 010 9-1208 #11-1375 

GGER7 01 9-1221 #11-1377 


010600 
025676 15-4333 = #15-4462 


#15-4207 


™”) 
Nm 
Ww 
Ow 
Ge 
aw 


CREATED BY MACRO ON 18-SEP-79 AT 13:50 


CKF PBAO 


SYMBOL CROSS REFERENCE 


SEQ 0194 


REFERENCES 


#11-1464 


11-1428 





CKF PBAO 
SYMBOL CROSS REFERENCE 
SYMBOL VALUE 
HHERO 005612 
HHEROO 005726 
HHER1 005660 
HHER10 006454 
HHER2 005774 
HHER3 006042 
HHERS 006110 
HHERS 006156 
HHE 006224 
HHER7 006272 
HHER8 006340 
HHERG 006406 
HHT 025702 
HHH10 27002 
HHH] 4 027102 
HHH 12 027202 
HHH13 027302 
HHH2 26002 
HHH 3 026102 
HHH4 026202 
HHHS 026302 
HHH6 026402 
HHH7 026502 
HHH8& 026602 
HAD 026702 
HHPO 006602 
HHP 1 006612 
HHP 10 006722 
HHP 11 006732 
HHP2 006622 
HHP 3 006632 
HHP4 006642 
HHPS 006652 
HHP6 006662 
HHP7 006672 
HHP8 006702 
006712 
HHTRAP 006522 
HH? 005022 
HH10 5234 
HH11 005252 
HH12 5302 
HH13 005324 
HH14 5344 
HH15 005354 
HH16 005362 
HH17 005400 
HH18 0054 36 
HH19 005460 


CREATED BY MACRO ON 18-SEP-79 AT 13:50 


REFERENCES 
9-943 


3 
#9~-1024 


#16-4840 


9-1055 
9-1055 


9-1060 


PAGE 24 
CREF 


#9-1085 
#9-1089 
#9-1093 
#9-1101 

9-1059 
#9-1113 

9-1061 
#9-1121 


9-1065 


9-1062 


9-1065 


9-1063 


9-1066 


9-1063 


9-1066 


9-1064 





CREATED BY MACRO ON 18-SEP-79 AT 13:50 


SYMBOL CROSS REFERENCE 
VAL 


000011 
013270 
013400 


012656 
013146 


REFERENCES 
9-926 #9-93' 


11-1702 
11-1686 
11-1742 
11-1492 
11-1575 
11=1620 
11-1622 
11-1649 
11-1506 
#11-1702 
11-1508 
#11-1708 
11-1655 
11-1531 
11-1548 
#11-1723 
11-1550 
11-1513 
11-1566 
11-1485 
#11-1771 
11-1487 
11-1706 
#11-1780 
11-1604 
11-1610 
11-1582 
11-1497 
11-1538 
#11-1482 
11-1530 
#11-1540 
#11-1546 
11-1547 
11-1541 
11-1556 


#11-1712 


411-1717 


CKF PBAO 

SYMBOL CROSS REFERENCE 
SYMBOL VALUE 
HX16 012216 
HxX165 012222 
4X17 12250 
HX18 2306 
HX19 012326 
HX2 011714 
HxX20 012336 
HX21 012340 
HX22 012370 
HX23 012410 
HX24 12430 
HX25 012440 
HX26 012446 
HX27 012450 
HX28 012502 
HX29 012524 
HXx3 011730 
HX 30 012534 
HXx31 012552 
HxX32 12602 
HX33 012624 
HX 34 012634 
HX35 012652 
HX4 011750 
HX5 011770 
HX6 012000 
HX7 012006 
HX8 012024 
HX9 012056 
II IDON 021454 
1111 020620 
III2 02 
1113 020730 
1114 020774 
IOTVEC = 20 
JJJDON 022414 
JJJ1 21460 
JJJ2 021544 
JJIS 021630 
JIIS 021714 
KKKDON 023256 
KKK1 022420 
KKK3 224 
KKK4 022530 
KKKS 022574 
LF = 12 
LLLDON 024220 
LLL1 023262 
LLL2 023346 
LLL3 23432 
LLL4 023516 
LOOP 005020 


CREATED BY MACRO ON 18-SEP-79 AT 13:50 


a je 


tt RR ee 4 
‘Oo Shino ceo 
SO NO OWOONM—DGWwonN— 


Bo 


= INDI SS AOA OS 
SARSF@N 


-wNN= 
— SWIM 


#14-3912 
#9-906 


#11-1568 

11-1735 
#11-1577 
#11-1586 

11-1595 
#11-1489 
#11-1595 
#11-1605 

11-1624 

11-1621 
#11-1621 
#11-1626 
#11-1638 

11-1650 
#11-1493 
#11-1650 
#11-1659 
#11-1668 

11-1680 
#11-1680 
#11-1686 

11-1509 

11-1507 
#11-1507 
#11-1509 
#11-1515 
#11-1527 
414-3344 


9-903 
414-3595 
#14-3842 


17-5651 
#15-4094 


17-5643 


11-1746 


9-903 


17-5651 


SS 


D 16 


SEQ 0198 


PAGE 27 
CREF 


CREATED BY MACRO ON 18-SEP-79 AT 13:50 


SYMBOL CROSS REFERENCE 


CKF PBAO 
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SYMBOL 
LPERR 
MMYMDON 
yen) 
MyM 
Mnn3 
MAG 
MMS 
MNUMBE 
MODDDO 
MODDD1 
MODDOV 
MODD SU 
MODD TO 
MODDT 1 
MODF DO 
MODF D1 
MODF OV 
MODF SU 
MODF TO 
MODF T1 
MODP 1 
MSA1 
MSA2 
MSA3 
MSA4 
MSA5 
MSA6 
MS1 
MS10 
MS11 
MS12 
MS2 
MS3 

MS 37 
MS4 
MS40 





CKF PBAO 
SYMBOL CROSS REFERENCE 
MBOL 


CREATED BY MACRO ON 18-SEP-79 AT 13:50 


VALUE 


nut 


REFERENCES 
a 9 


13-2953 


19=7001 


#17-5299 


14-3498 


14-3632 


#18-5913 
9-904 


9 
*9-903 


9-919 
13-3108 


19=7006 


PAGE 28 
CREF 


19-7031 


13-2991 
13-3075 
13-2745 
13-2846 


14-3529 


15-4050 


14-3664 


17-5664 


413-3029 
#13-3093 

13=2756 
#13=-2¢33 


414-3714 


17-5664 


12-2260 
15-4462 


13-268 


414-3593 
415-4092 
#14-3342 
#14-3840 


17-5664 


13-2780 


17-5664 


13-2697 
16-5071 


13-2791 


17-5664 


13-2942 
17-5299 


12-2517 
16-4853 


13-2802 


17-5664 


13-3095 
17-5635 


13-2708 
16-5084 





F 16 BS 
CKFPBAO CREATED BY MACRO ON 18-SEP-79 AT 13.50 PAGE 29 | 
SYMBOL CROSS_ REFERENCE CREF SEQ 0200 


REFERENCES 
17-5343 17-5643 
SPACE 037217 17-5741 17-5753 17-5757 17-5761 17-5799 = =#18=5915 
STACK = 001100 #7-877 9-903 17-5894 
START 004336 7-889 #9-903 17-5664 
STKLMT = 177774 #7-877 
SwWR 001140 #8-890 9-903 *9-903 9-903 *9=903 *9=-903 9-904 17-5347 17-5643 


17-5645 17-5645 17-5645 17-5645 17-5645 17-5647 17-5647 17-5647 17-5647 
17-5647 17-5657 a od 17-5664 17-5664 17-5883 


TST10 017056 #13-2708 


SWREG 000176 #7-889 9-903 17-5657 17-5657 

SwO = 000001 #7-877 

SwOO = 000001 #7-877 7-877 

SwO1 = 000002 #7-877 7-877 

SwO02 = #7-877 7-877 

Sw03 = 000010 #7-877 7-877 

Sw04 = 000020 #7-877 7-877 

sw0s = #7-877 7-877 

Sw06 = 000100 47-877 7-877 

Sw07 = 000200 #7-877 7-877 

Sw08 = 0004 #7-877 7-877 

Sw09 = 001000 #7-877 7-877 ‘ 

Sw = #7-877 

Sw10 = 002000 #7-877 

Sw11 = 004 #7-877 

Sw12 = 010000 #7-877 

Sw13 = 020000 47-877 

SwW14 = 040000 #7-877 

Sw15 = 100000 #7-877 

Sw2 = 000004 47-877 

SwW3 = 000010 #7-877 

SwW4 = 000020 47-877 

Sw5 = 0 47-877 

SwW6 = 000100 #7-877 

Sw7 = 000200 #7-877 

Sw8 = 000400 47-877 

Sw9 = 001000 47-877 

TAB = 000011 #7-874 17-5904 17-5904 17-5905 17-5906 17-5906 18-5908 18-5909 18-5909 
18-5910 18-5910 18-5914 18-5916 18-5916 18-5917 18-5917 18-5918 18-5919 
18-5920 18-5921 18-5921 18-5922 18-5923 18-5924 18-5925 18-6455 18-6455 
18-6455 18-6456 18-6457 18-6457 18-6470 18-6470 18-6470 18-64 7' 18-6472 
18-6472 18-6472 18-6473 18-6474 18-6474 18-6474 18-6504 18-6504 18-6504 
19-6594 19-6594 19-6595 19-6595 19-6596 19-6596 19-6597 19-6597 

66 19-660 19-6605 19-6611 19-6611 19-6612 19-6612 19-6613 19-6613 

19-6614 19-6614 19-6620 19-6620 19-6622 19-6622 19-6623 19-6623 19-6625 
19-6625 19-6626 19-6628 19-6628 19-6629 19-6630 19-6634 19-6634 19-6635 
19-6636 19-6643 19-6643 19-664 3 19-6644 19-6644 19-6659 19-6659 

TBITVE = 000014 #7-877 9-903 9-903 

TKVEC = 000060 #7-877 

TPVEC = 000064 #7-877 

TRAPVE = 000034 47-877 9-903 9-903 

TRTVEC = 000014 47-877 

TST1 005020 #9-919 





CKF PBAO 

SYMBOL CROSS REFERENCE 
SYMBOL VALUE 
TST11 20066 
TST12 020616 
TST13 021456 
TST14 022416 
TST15 023260 
TST16 024222 
TST17 025700 
TST2 006744 
TST20 03 
TST21 030734 
TST22 031762 
TST23 033144 
TST3 011662 
TST4 013402 
TSTS 014410 
TST6 015112 
TST7 016122 
TYPE = 104401 
TYPOC = 104402 
TYPON = 104404 
TYPOS = 104403 
$SAPTHD 004322 
SASTAT = *xxeee 
SATYC 035054 
SATY1 035030 
$SATY3 5036 
SATYS 035046 
$SAUTOB 001134 


CREATED BY MACRO ON 18-SEP-79 AT 13:50 


REFERENCES 
#13-2953 


#12-2271 


17-5797 


17-5643 
#9-900 

17-5655 
#17-5655 


#17-5655 
#17-5655 
*9-94 


17-5647 


*17-5651 


17-5643 
17-5657 
17-5710 
17-5805 
17-5687 


417-5659 


17-5657 


17-5647 


17-5651 
17-5659 


PAGE 30 
CREF 


17-5770 


17-5657 


17-5647 


*17-5651 


17-5643 
17-5657 
17-5740 


17-5739 


17-5657 


#17-5651 


17-5647 
17-5657 
17-5752 


17-5743 


17-5647 
#17-5659 
17-5756 


17-5751 


17-5651 
17-5664 
17-5760 


17-5755 


17-5653 
17-5675 
17-5779 


17-5759 








8-890 
#17-5657 
#17-5657 


17-5645 
17-5706 
19-6873 
19-6946 
19-7001 
19-7006 
19-7031 


17-5643 
9-904 
#17-5643 


9-904 
9-903 
17-5840 
#17-5643 
17-5645 


*9-903 
417-5647 


CREATED ae MACRO ON 18-SEP-79 AT 13:50 


17-5647 
17-5713 
19-6873 
19-6947 
19-7001 
19-7006 
19-7052 


17-5643 


#17-5643 


17-564 
17-5345 
17-5851 
17-5643 
17-5645 


17-5645 


N 


PAGE 31 
CREF 


17-5647 
17-5816 
19-6903 
19-6947 
19-7002 
19-7006 
19-7052 


#17-5643 
17-5647 


17-5651 
17-5651 


17-5862 


17-5645 
*17-5645 


19-7053 


*17=-5645 


17-5645 


17-5651 
19-6854 
19-6904 
19-6978 
19-7002 
19-7007 
19-7053 


17-5655 
17-5655 


17-5645 
17-5645 


17-5651 
19-6855 
19-6904 
19-6979 
19-7002 
19-7007 
19-7054 


17-5645 







19-7054 


*17-5647 


I 16 


CKF PBAO CREATED BY MACRO ON 18-SEP-79 AT 13:50 PAGE 32 
SYMBOL CROSS REFERENCE CREF SEQ 0203 
SYMBOL VALUE REFERENCES 
SERRPC 001116 #8-890 *17=5647 * 17-5647 17-5647 17-5647 17=5647 17-5679 17-5686 
SERRTB 001442 #9-890 17-5699 
SERTTL 001112 #8-890 17-5643 *17=5643 * 17-5647 17-5647 17-5647 - 
SESCAP 001304 #8-890 #9-903 *17=5645 17-5647 17-5647 17-5647 17-5647 
SE TABL 001336 #8-890 
SE TEND 001442 #8-890 9-900 
SFATAL 001320 #8-890 *17-=5655 
SFFLG 035274 *17=5655 #17=-5655 17-5655 *17=5655 #17-5655 
SFILLC 001156 #8-890 17=5651 17-5651 17-5651 
SFILLS 001155 #8-89" 17-5651 17-5651 
SGDADR 001120 #8-890 
SGDDAT 001124 #8-890 
$GET42 033330 #17-5643 
SGTSWR 035346 #17-5657 17-5659 17-5659 
= 3 7-868 7-868 7-868 
SHIBTS 004322 #9-< 
SICNT 001104 #8-890 *#17=5645 17-5645 = *17=5645 17-5645 17-5645 
$SILLUP 036176 17-5664 17-5664 #17-5664 
SINTAG 001135 #8-890 17-5657 17-5657 17-5657 
SITEMB 001114 #8-890 *17-5647 17-5647 17-5647 17-5647 17-5682 
$LF 001314 #8-890 17-5647 17-5647 17-5651 17-5651 
SLFLG 035273 *17=5655 #17-5655 
OOP 033424 17-5643 #17-5643 
SLPADR 001106 #8-890 «9-903 *17=5645 *17-5645 17-5645 17-5645 17-5645 
SLPERR 001110 #8-890 *9-903 17-5645 *17-5645 17-5645 17-5645 17-5647 17-5871 
$MADR1 001350 #8-890 
SMADR2 001354 #8-890 
SMADR3 001360 #8-890 
SMADRS 001 364 #8-890 
SMAIL 001316 #8-890 9-900 9-900 9-903 9-904 17-5645 17-5647 17-5651 
SMAMS 1 1 #8-890 
SMAMS2 001352 #8-890 
SMAMS3 001356 #8-890 
SMAMS4 001362 #8-890 
324 900 
SMFLG 035272 *17-5655 17-5655 *17-5655 #17-5655 
W 035723 17-5657 #17-5657 
SMSGAD 001332 #8-890 *17-5655 17-5655 
SMSGLG 1334 #8-890 *17-5655 
SMSGTY 001316 -890 17-5655 *17-5655 17-5655 *17-5655 
SwWR 035712 17-5657 #17-5657 
SMTYP1 134 #8-890 
SMTYP2 001353 #8-890 
SMTYP3 001357 #8-890 
SMTYP4 1 #8-890 
$SMXCNT 033714 17-5645 17-5645 17-5645 17-5645 
$NULL 001154 #8-890 17-5651 17-5651 17-5651 
SNWTST = 000001 #9-919 9-919 #9-919 9-919 #9-1149 9-1149 #9-1149 9-1149 
11-1480 #11-1480 11-1480 #11-1818 11-1818 11-1818 11-1818 12-2118 
#12-2118 12-2118 12-2271 12-2271 #12-2271 12-2271 #12-2517 ieSere 
12-2517 #13-2708 13-2708 #13-2708 13-2708 13-2953 13-2953 15-2953 
#13-3108 13-3108 #13-3108 13-3108 414-3358 14-3358 #14-3358 14-3358 





























CKF PBAO CREATED BY 
SYMBOL CROSS REFERENCE 
SYMBOL VALUE 
SOCNT 035024 
SOMODE 035026 
SCVER 033700 
SPASS 001324 
SPASTM 00433 
SPWRAD 036160 
SPWRDN 036020 
SPWRMG 036154 
SPWRUP 036072 
SQUES 001312 
SRDCHR 035560 
SRDDEC = *xexewe 
SRDLIN = *eexK® 
SRDOCT = xxexnn 
SRDSZ = 1 
SREGAD 001160 
EGO 001162 
SREG1 007164 
SREG10 001202 
SREG11 001204 
SREG12 1206 
$REG13 001210 
SREG14 001212 
$REG15 001214 
SREG16 001216 
$SREG17 001220 
$REG2 1166 
$REG20 001222 
$REG21 001224 
$REG22 001226 
$SREG23 001230 
$REG3 001170 
EG4 001172 
$REGS 001174 
SREG6 001176 
SREG7 0012 
SRE SRE 034212 
T 033426 
SRTRN 033422 
$R2A = wekkne 
SSAVRE 034154 
SSAVR6 036202 
SSCOPE 033436 
$SETUP = 000137 


9-904 
17-5657 


#17-5664 
#17-5664 


17-5647 
17-5659 


17-5657 
17-5647 


17-5659 
*9-903 
17-5659 


17-5664 


MACRO ON 18-SEP-79 AT 13:50 
REFERENCES 
14-3612 


14-3612 


3 
17-5645 
*17-5643 


17-5664 


17-5647 
17-5659 


17-5647 


*9-903 


17-5659 
*17-5664 


9-903 
17-5643 


PAGE 33 
CREF 


#14-3855 
15-4474 
#16-5084 
*17=5653 
17-5645 
*17-5643 


17-5651 


17-5647 


17-5643 


*17-5664 


7-887 
#7-887 


9-903 
17-5645 


14-3855 
415-4474 
16-5084 
*17=5653 
#17-5645 
17-5645 


17-5651 


417-5643 


#17-5664 


47-887 
9-903 


9-90 
17-5647 


414-3855 

15-4474 
#17-5343 
#17-5653 


17-5643 


17-5657 


7-887 
9-903 
9-903 
17-5647 


17-5643 


#7-887 
5-903 
9-903 
17-5647 


#15-4107 
16-4853 
417-5343 


17-5645 


7-887 
9-903 


9- 
17-5647 


15-4107 
#16-4855 
17-5343 


17-5645 


#7-887 
9-903 


9-904 
17-5657 


CKF PBAO CREATED BY 
SYMBOL CROSS REFERENCE 
SYMBOL 


MACRO ON 18-SEP-79 AT 13:50 PAGE 34 
CREF 


SEQ 0205 


S VALUE REFERENCES 
$STUP) = = - 177777 #7-887 #7-887 7-887 47-887 #7-887 7-887 47-887 #7-887 7-887 
#7-887 #7-887 7-887 #7-887 47-887 7-887 47-887 #7-887 7-887 

$SSVLAD 033644 17-5645 = 17-5645 

SSVPC) = =_: 004322 899 -899 

LSwR = 177400 7-868 #7-868 87-872 8-890 8-890 8-890 9-903 9-903 9-903 
9-903 9-903 9-919 9-1149 11-1480 11-1818 12-2118 12-2271 12-2517 
13-2708 13-2953 13-3108 14-3358 14-3612 14-3855 15-4107 15-4474 16-4853 
16-5084 17-5343 17-5643 17-5643 17-5643 17-5643 17-5643 17=5645 17-5645 
17-5645 17-5645 17-5645 17-5645 17-5645 17-5645 17-5645 17-5645 17-5645 
17-5645 17-5645 17-5645 17-5645 17-5645 17-5645 17=5645 17-5645 17-5645 
17-5647 17-5647 17-5647 17-5647 17-5647 17-5647 17-5647 17-5647 17-5647 
17-5647 17-5647 17-5664 

SSWREG 001340 #8-890 9-903 

SSWRMK = 000000 ar sf: 17-5645 17-5645 17-5645 17-5645 17-5645 17-5645 17-5645 17-5645 

SSWRMS = 000200 #7-873 

$TAB 037215 17-5806 #18-5914 19-6853 19-6853 19-6853 19-6855 19-6868 19-6868 19-6869 
19-6869 19-6869 19-6870 19-6870 19-6870 19-6871 19-6871 19-6872 19-6872 
19-6872 19-6902 19-6902 19-6902 19-6944 19-6944 19-6944 19-6977 19-6977 
19-6 19-6999 19-7000 19-7001 19-7005 19-7005 19-7005 19-7012 19=7012 
bg. 34 gph 19-7033 19-7035 19-7045 19-7045 19-7046 19=7049 19-7051 

S$TBIT 033430 *9-903 *17-5643 17-5643 17-5643 917-5643 = * 17-5664 

STERM = 30 #17-5662 

STESTN 001322 #8-890 *17-564 

STIMES 001302 #8-890 *9-903 *17-5643 = -* 17-5645 17-5645 = =* 17-5645 17-5645 17-5645 

$TKB 001146 #8-890 17-5651 17-5651 17-5657 17-5657 3=* : 17-5657 17-5657 17-5657 17-5657 

$TKS 001144 east 17-5651 17-5651 17-5657 17-5657 17-5657 17-5657 17-5657 17-5657 

$STMPO 001232 #8-890 17-5677 17-5678 19-6853 19-6855 19-6868 19-6869 19-6870 19-6871 
19-6872 19-6902 19-6944 19-6977 19-6999 19-7001 19-7005 19-7012 19-7029 
19-7033 19-7035 19-7045 19-7046 19-7049 19-7051 

STMP1 001234 #8-890 17-5679 19-6853 19-6855 19-686 19-6869 19-6870 19-6871 19-6872 
19-6 19-6944 19-6977 19-6999 19-7001 19-7005 19-7012 19-7029 19-7033 
19-7035 19-7045 19-7046 19-7049 19-7051 

$TMP10 001252 #8-890 9-1055 9-1056 9-1057 9-1058 9-1059 9-1060 9-1061 1 
9-1063 9-1064 9-1065 9-1066 11-1365 11-1367 11-1369 11-1373 11-1375 
11-1391 11-1393 11-1395 11-1397 11-1399 11-1401 11-1418 11-1420 11-1422 
11-1424 11-1426 11-1428 12-2251 12-2476 13-2661 13-2911 13-3059 13-3229 
14-3481 14-3727 15-3979 15-4401 16-4770 16-5009 16-5228 17-5594 72 
19-6902 19-6947 19-6980 19-7005 19-7051 

$TMP11 001254 #8-890 9-1055 9-1056 9-1057 9-1058 9-1059 9-1060 9-1061 9-1062 
9-1063 9-1064 9-1065 9-1066 11-1365 11-1367 11-1369 11-1373 11-1375 
11-1391 11-1393 11-1395 11-1397 11-1399 11-1401 11-1418 11-1420 11-1422 
11-1424 11-1426 11-1428 13-3249 14-3320 14-350 14-3571 14-3756 14-3834 
15-4008 15-4086 15-4402 15-4451 16-4772 16-4831 16-5010 16-5055 16-5229 
17-5283 17-5589 19-6902 19-6944 19-6977 19-7005 19-7052 

STMP12 001256 #8-890 15-4403 15-4452 16-4771 16-4832 16-5011 16-5056 16-5230 17-5284 
17-5595 19-6944 19-6977 19-7052 

$STMP13 001260 #8-890 16-5012 16-5061 16-5231 17-5289 19-6977 

$TMP14 001262 #8-890 16-5013 16-5062 16-5232 17-5290 

$TMP15 001264 #8-890 
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CKF PBAO 


SYMBOL CROSS REFERENCE 


CREATED BY MACRO ON 18-SEP-79 AT 13:50 


SYMBOL VALUE 
STN = 000023 


035770 
004326 
001102 


eaeere 
aeaeank 


REFERENCES 
7- #7 


868 ~868 
11-1480 #11-1480 
12-2271 = #12-2271 
13-2953 #13-2953 
14-3612 #14-3612 
15-4474 = #154474 
17-5343 = #17-5343 

#8-890 17-5651 

#8-890 17-5651 

#8-890 17-5651 

903 #17-5659 

#17-5659 17-5659 

#17-5659 17-565 
17-5659 = #17-565 
17-5659 17-5659 
17-5659 17-565 
17-5659 17-5659 

#17-5659 17-5660 
17-5661 #17-5661 
17-5659 + =#17-5659 

#8-890 *17-5643 
17-5647 17-5647 
17-5659 
17-5659 

#17-5651 17-5655 
17-5651 17-565 
17-5651 17-5651 

#17-5653 17-565 
17-565 #17-5653 

#17-5653 17-5659 

#8-890 

#8-890 

#8-890 

#8-890 

#17-5645 

#17-5643 =. #17-5643 
*17-5653 = * 17-5653 
17-5645 17-5647 
17-5661 3 3=#17-5871 
17-5660 #17-5883 
17-5655 17-5655 

#9-900 9-900 


17-5659 
17-5659 
#17-5659 
17-5659 
17-5659 
17-5660 


17-5662 
17-5645 
17-5647 


17-5659 
Me eaet 


9 
17-5659 


17-5643 
17-5653 


PAGE 36 
CREF 


9 
1 
~4853 
17-5651 


17-5651 
17-5651 


1 
12 
13 
14 
16 


17-5659 


17-5660 


17-5645 
17-5677 


17-5659 
#17-5651 


#17-5653 


17-5660 


*17-5645 


17-5651 


#17-5660 


17-5645 


17-5657 


17-5659 
#17-5659 
17-5659 
17-5659 
17-5659 
17-5661 


17-5645 


#9-1149 
#12-2118 


#15-4107 
#165084 


17-5659 
9 


17-5661 


17-5645 


17-5659 
17-5659 
17-5659 
#17-5659 
17-5659 
17-5661 


17-5645 


SEQ 0207 


CKF PBAO CREATED BY MACRO 
MACRO CROSS REFERENCE 
MACRO NAME REFERENCES 
ACCMAC #7-780 
AMAC 1 #18-6246 
ASMAC 1 #7-737 #9-1055 
1 #9-1065 
#11-1391 #11-1393 
#11=146246 = -#11-1426 
ASMA 2 #7-765 9-1055 
99-1064 9-1065 
11-1395 11-1397 
AS! #18-6299 
AS10 #18-6328 
AS') #18-6334 
AS #18-6302 
AS3 #18-6308 
ASG #18-6313 
ASS #18-6318 18-6338 
AS6 #18-6321 18-6339 
AS7 #18-6324 
COMME N #7-877 
CORMAC #18-6435 #18-6439 
#18-6448 #18-6449 
DM1 #18-5972 #18-5975 
DM2 #18-5988 18-5991 
ENDCOM 47-877 
ENDPAS #5-626 17-5643 
ERMAC #5-658 17-5647 
ESCAPE #7-877 
FPM] #18-5939 #18-5942 
#18-5960 #18-5962 
GE TPR] 47-877 #17-5643 
GE T SWR #7-877 #9-904 
HMAC 1 #7-750 
HMA 2 #7-760 
HMA ( 3 #7-766 
1 TEMAC #7-730 #9-896 
896 49-896 
49-896 49-896 
#9-896 #9-896 
49-896 #9-896 
49-896 #9-896 
49-896 #9-896 
49-896 49-896 
49-896 49-896 
49-896 49-896 
49-896 #9-896 
#9-896 #9-896 
49-896 #9-896 
49-896 #9-896 
49-896 #9-896 
49-896 49-896 
49-896 #9-896 
#9-896 49-896 


ON 18-SEP-79 AT 13:50 


#9-1056 


6 
11-1399 


#18-6440 


#18-5977 
18-5993 


#18-5944 
#18-5964 


49-904 


#9-1057 

#11-1363 

#11-1397 
9-1057 


11-1365 
11-1401 


#18-6441 
#18-5979 


#18-5946 


PAGE 37 
CREF 


#9-1058 

#11-1365 

#11-1399 
9-1058 
11-1367 
11-1418 


#18-6442 
#18-5982 


#18-5948 





#9-1059 

#11-1367 

#11-1401 
9-1059 
11-1369 
11-1420 


418-6443 
418-5984 


#18-5950 


#9-1060 
#11-1369 
#11-1416 


9-1060 
11-1373 
11-1422 


#18-6444 


#18-5952 


#9-1061 
#11-1373 
411-1418 


9-1061 
11-1375 
11-1624 


#18-6445 


#18-5954 


#9-1062 
#11-1375 
#11-1420 


9-1062 
11-1391 
11-1426 


418-6446 


#18-5956 


#9-1063 
#11-1389 
#11-1422 


9-1063 
11-1393 
11-1428 


#18-6447 


#18-5958 


SEQ 0208 


= CREATED BY MACRO ON 18-SEP-79 AT 13:50 cneF 38 


MACRO CROSS REFERENCE SEQ 0209 

MACRO NAME REFERENCES 
#9-896 -896 #9-896 

LCM #18-6389 18-6416 18-6419 

LCM2 #18-6394 #18-6415 #18-6424 

LCMs #18-6398 #18-6421 #18-6423 

LCMG #18-6405 18-6420 18-6422 

LCMS #18-6408 18-6417 

LDM) #18-6263 

LDM2 #18-6269 

LDM3 #18-6273 

LDMG #18-6277 

LDMS #18-6281 

LDM6 #18-6284 #18-6411 #18-6418 

LDM7 #18-6288 

LDM8 #18-6292 

LDM9 #18-6296 

LD1M1 #18-6250 

LDIM2 #18-6254 

LD1M3 #18-6260 

LOADTP #5-634 

LPER #7-853 #9-923 49-955 #9-980 #9-1010 #9-1033 #9-1152 49-1176 49-12% #9-1241 
#9-1283 #11-1309 «= #17=1682 -#117-1515) 11-1567) 11-1577) 11-1598 = # 11-1628 = #11-1659 = #1 1-1821 
#11-1832 #11-1845 #11-1858 #11-1872 411-1885 #11-1902 #11-1919 #11-1936 #11-1952 #12-1970 
#12-1987 = 12-2006 = 12-2121 - 12-2146 = 12-2168 = 12-2274 = 12-2285 = 12-2296 )=— 12-2308 )3=— #12- 2319 
412-2330 «= 12-2345 = 12-2353 * 12-2365) = 12-2376 = 12-2387 = 12-2399) = 12-2410 = #122520) = #12-2531 
#12-2542 = #12-2553 = #12=25646 = «12-2577 12-2589 = #132711 813-2722) 13-2733 13-2744 = 13-2755 
#13-2767 = 13-2779 —_-#13=2790 ° #13-2801 8413-2812) «= #1 3-2823 = # 13-2834 389 #1 3-2845 = #13-2956) =. #1 33-2968 
#13=2979 = #13-2990) —_-#13=3111 13-3127) 0 13-3164 13-3160) 3=—- #14-3361 0 = 14-3379 = #14-3396 0) = 14-3414 
#14-3615 #14-3631 #14-3667 ° 414-3663 #14-3858 #14-3876 #14-3894 #14-3912 #15-4110 #15-4126 
#15-46142 9-15-4158 915-4174 15-4190 = # 15-4207) = #15=42246 = #15-42460 = #9 15-4256 §=—- #154272) = ss #15 -4288 
#15-4304 #15-4320 #15-46477 © #15-4493 #15-4511 415-4528 #15-4546 #15-4565 #15-4582 #16-4600 
#16-4616 #16-4636 #16-4654 #16-4672 #16-4690 #16-4856 #16-4873 #16-4890 416-4908 #16-4926 
#16-5087 #16-5106 #16-5125 + #16-5144 #17-5368 417-5381 #17-5395 #17-5409 417-5425 417-5439 
417-5455 417-5468 #17-5483 . #17-5497 #17-5511 

MDO1 #18-6056 18-6069 418-6074 = 

MDO2 #18-6106 #18-6119 #18-6124 

MDU1 #18-6059 18-6062 18-6067 = 

MDU2 #18-6109 #18-6112 #18-6117 4 

ME RROR #7-756 

MF MG #18-6196 #18-6208 #18-6226 

MFMS 4 wth #18-6210 18-6216 418-6220 18-6222 418-6224 #18-6228 418-6234 418-6236 418-6240 
# 

MEMO #18-6202 #18-6212 #18-6230 

MFM7 #18-6205 18-6214 18-6218 18-6232 18-6238 

MFO) #18-6034 #18-6044 #18-6046 

MFO2 #18-6084 18-6094 18-6096 

MFU1 #18-6037 #18-6040 #18-6042 

MF U2 #18-6087 18-6090 18-6092 1 

MM 1 #18-5996 #18-6000 18-6002 418-6005 418-6008 418-6010 418-6028 418-6030 #18-6080 418-6082 

MM? #18-6013 #18-6017 #18-6020 418-6022 418-6024 18-6050 418-6052 418-6064 #18-6071 #18-6102 
#18-6106 #18-6114 #18-612 

MODDM 1 #18-6161 18-6169 18-6173 18-6177 18-6180 18-6183 18-6194 

MODDM2 #18-6164 18-6167 18-6171 18-6175 18-6185 18-6188 18-6190 18-6192 





CKF PBAO CREATED BY 
MACRO CROSS REFERENCE 
MACRO NAME REFERENCES 
MODM1 #18-6129 
MOaDM2 #18-6132 
MSG #9-909 
#1 2=2263 
#14-3348 
#16-4844 
MULT #7-877 
NAME P #5-648 
NEWTST #7-877 
13-3108 
NTMPM #5-644 
Ou? #18-6349 
Que #18-6355 
Ou3 #18-6362 
POP #7-877 
PUSH 47-877 
REPORT #7-877 
ROM #7-679 
ROMAC #7-811 
ROM 1 #7-682 
ROM10 #7-703 
ROM11 #7-706 
ROM12 #7-709 
ROM13 47-712 
ROM14 #7-715 
ROM15 47-718 
ROM 16 #7-721 
ROM17 47-724 
ROM2 #7-685 
ROM20 #7-727 
ROM3 #7-688 
ROM 50 #7-673 
ROM31 #7-676 
ROMG #7-691 
ROM5 #7-694 
ROM6 #7-697 
ROM7 #7-700 
RSET #5-651 
414-3344 
#17-5850 
RTMA( #18-6343 
RTMPM #5-639 
SE TPR] 47-877 
SETTRA #17-5659 
17-566 
SE TUP 47-877 
SKIP #7-877 
SLASH #7-877 
SPACE #7-860 
SSKAD #7-850 
STARS #7-877 
9-1149 


18-6135 

18-6137 
#9-919 
#12-2271 
#14-3358 
#16-4853 


14-3358 
18-6375 


17-5649 


#9-1133 

14-3595 
#17-5861 
#18-6367 


17-5659 
17-5661 
9-903 


#7-877 


8-890 
9-1149 





MACRO ON 18=SEP=79 AT 13:50 


#16-5075 
9-1149 
14-3612 
18-6377 


17-5655 


#11-1472 
#14-3842 
#18-6368 


17-5659 


8-890 
11-1480 


#11-1806 
#15-4094 
#18-6369 


17-5659 


8-890 
11-1480 


PAGE 39 
CREF 


18-6147 
#11-1474 


#12-2106 
415-4462 


#1 8-6370 


17-5659 


9-899 
11-1818 


18-6149 
#11-1480 


17-5664 
17-5664 


#12-2260 
416-4840 


17-5659 


9-900 
11-1818 


18-6151 


#11-1810 
413-2965 
#15=4099 


12-2271 
16-4853 


17-5664 


#12-2507 
#16-5071 


17-5659 


9-900 
12-2118 


18-6153 
#11-1818 


#13=2953 
#15=4107 


#13-2697 
#17-5299 


17-5659 


9-900 
12-2118 


#12-2110 
#13-3098 
#15-4466 


13-2962 
#17-5635 


17-5659 


9-919 
12-2271 


#5 2-2118 
#13-3108 
415-4474 


13=2953 


#13-3095 
#17-5839 


17-5659 


9-919 
12-2271 


SEQ 0210 


Bay CROSS REFERENCE 








17-5639 
17-5662 


49-904 
17-5643 


#17-5659 


#17-5651 


MACRO ON 18=SEP=79 AT 13:50 


17-5643 
17-5643 
8-890 
8-890 
8-890 
8-890 


49-1149 
#14-3612 
17-5659 


#7-877 
#7-877 
47-877 


8-890 


13-3108 
15-4474 
17-5649 
17-5668 


#12-2517 
#16-5084 


17-5659 


#7-877 
#7-877 


14-3358 
16-4853 
17-5651 
17-5827 


8-890 
8-890 


8-890 
8-890 


#13-2708 
#17-5343 


17-5659 


#7-877 
#7-877 


rn 


14-3358 
16-4853 
17-5653 
17-5844 


8-890 
8-890. 


8-890 
8-890 


413-2953 


17-5659 


#7-877 
#7-877 


